Hei,
miten tehdään Exceliin makro, jolla määritetään jokin polku tallennettaville tiedostoille (EI SIIS EXCELIN OMA OLETUSKANSIO). Jonkin tiedoston sijainnin saan selville seuraavalla koodilla:
Sub sijainti()
fileToOpen = Application.GetOpenFilename("Tekstitiedostot (*.xls), *.xls")
If fileToOpen False Then
MsgBox "Tiedoston polku on " & fileToOpen
End If
End Sub
En halua saada selville mitään tiettyä tiedostoa, vaan pelkästään kansion jossa tiedosto on. Onko mahdollista?
JEN
miten tehdään Exceliin makro, jolla määritetään jokin polku tallennettaville tiedostoille (EI SIIS EXCELIN OMA OLETUSKANSIO). Jonkin tiedoston sijainnin saan selville seuraavalla koodilla:
Sub sijainti()
fileToOpen = Application.GetOpenFilename("Tekstitiedostot (*.xls), *.xls")
If fileToOpen False Then
MsgBox "Tiedoston polku on " & fileToOpen
End If
End Sub
En halua saada selville mitään tiettyä tiedostoa, vaan pelkästään kansion jossa tiedosto on. Onko mahdollista?
JEN
Vastaukset 5
Vanhimmat
suorittaa tiedoston avaaminen, hakea aktiivisen tiedoston polku ja sulkea tiedosto:
-------------------------
Sub sijainti()
fileToOpen = Application.GetOpenFilename("Tekstitiedostot (*.xls), *.xls")
If fileToOpen False Then
MsgBox "Tiedoston polku on " & fileToOpen
End If
'Lisätty koodi
Workbooks.Open fileToOpen
Polku = ActiveWorkbook.Path
ActiveWorkbook.Close
MsgBox Polku
End Sub
sama ilman jonkin tiedoston avaamista? Kansiossa, jonka polun haluan saada selville, kun ei välttämättä ole mitään tiedostoa..
JE
niin siihen ei tietääkseni mitään kovin yksinkertaista koodinpätkää ole. Netistä kyllä löytyy tuohon valmiita Excel-makroja (esim. BrowseForFolder.xls) mutta en tiedä soveltuuko ne tarkoitukseesi.
vaihtoehtoisesti sellainen tapa millä pääsee "peruuttamaan" vaikkapa yhden kansion taaksepäin?
Eli jos on vaikka pääkansio A, jossa alikansiot B ja C. Tällä hetkellä ollaan kansiossa C olevassa päätiedostossa, ja tarkoitus on hakea tämän tiedoston makrolla kansiossa B olevan alitiedoston tietoja? Tietenkin polkumääritys onnistuu jos kerrotaan juuresta lähtien missä kansio on, mutta entäpä kun pääkansion halutaan olevan siirrettävissä jonnekin muualle?
Silloin saan homman toimimaan kun päätiedosto on suoraan pääkansiossa A ja haetaan alikansiossa B olevia tietoja, "Eteenpäin kansiopolussa siis pääsen vaikken pääkansion koko polkua tiedäkään, mutta osaatko sanoa miten peruutetaan taaksepäin edelliseen kansioon?
PS. Mistä tuo BrowseForFolder.xls löytyy?
PPS. Kiitos edellisistä vastauksistasi
JEN
Linkki BrowseForFolder-tiedoston lataukseen:
http://www.excelforum.com/attachment.php?postid=521366
Niin, kyllä uskon että tuo peruutus onnistuu, mutta enpä osaa sanoa miten.
Olen tuollaisissa tilanteissa lähtenyt liikkelle toisenlaisista ratkaisumalleista.
Antamalla käyttäjien määrittää kansiot eri soluihin, käyttämällä logiikkaa jossa yhteydet ja tiedonsiirto hoidetaan koontitiedoston kautta jonka polku ei muutu tai yhdistämällä kansiorakenteen tiedostossa valittaviin tietoihin (kansiot asiakkaittain yms.) päästään lähes samanlaiseen lopputulokseen.