Jste zde: Úvodní stránka » excel » vba-soubory » excel-vba-vypis-cesty-k-souboru

Vypis cesty k souboru - VBA Excel

Úvodem

Při vytváření maker ve VBA, je někdy potřeba číst/zapisovat do jiného Excelovského souboru. Je vhodné použít relativní cesty. Aby námi vytvořené makro fungovalo i na jiném PC (v jiném adresáři).

Cesta

Vypíše cestu ve které se nachází spouštěné makro. Příkaz DIR v MS DOS.


  CestaAdresare = ThisWorkbook.Path


Poznámka: Pro tento příklad můžeme využít i funkce.

Funkce CestaAdresare

Function CestaAdresare()
    CestaAdresare = ThisWorkbook.Path
End Function

V buňce jen zadáme: =CestaAdresare()

Jméno souboru

Vypíše jméno souboru ze kterého ej makro spuštěno.


    JmenoSouboru = ThisWorkbook.Name


Cesta včetně názvu souboru

CestaVcetneNazvuSouboru = ThisWorkbook.Fullname

Nebo za využítí předcházejicí VBA maker.

  CestaVcetneNazvuSouboru = CestaAdresare & "\" & JmenoSouboru


Pod adresář

Pokud se ve složce, kde máme náš soubor s makrem potřebujeme přesunout do nadřazeného adresáře není problém.


    CestaVcetneSouboruA_PodAdresare = CestaAdresare & "\data\" & JmenoSouboru


Poznámka: Podadresář data.Využívá předcházejicí VBA makra.

Nadřazený adresář

Jsem ve složce C:/VBA/pokus/adresar a potřebuji se dostat do C:/VBA/pokus. Tady již nastává menší problém, ale i ten je řešitelný. Můj postup je nasledující.

1. O kolik nadřazených složek se potřebujeme dostat nahoru (V příkladu 1)
2. Zjistíme počet znaků adresaře funkcí LEN, musíme použít anglicky název této funkce. Jelikož český POČET funguje jen v sešitu MS EXcel.
3. Zjistíme počet lomítek adresáře ve VBA funkcí MID. Česky ČAST.
4. Vypočteme pořadí zvoleného lomítka
5. Vypreparujeme požadovaný text pomocí funkce LEFT, Česky ZLEVA.
6. A máme hotovo.

Poznámka: Můžeme doplníme o kontrolu, pokud někdo chce zobrazit vyšší podsložku než můžeme, případně o dialogová okna k zadání dotazu.

Postřeh: Překlady funkci do češtiny jsou zlo. V sešitu se používá česká při programování maker anglická. Po chvíli je v tom chaos.

Private Sub PozadovanyAdresar()

CestaAdresare = ThisWorkbook.Path
KolikAdresaruNahoru = 1

CestaPocetZnaku = Len(CestaAdresare)

PocetLomitekAdresare = 0
For i = 1 To CestaPocetZnaku
     ZnakLomitko = Mid(CestaAdresare, i, 1)
     If ZnakLomitko = "\" Then
         PocetLomitekAdresare = PocetLomitekAdresare + 1
     End If
Next i

i = 1
PoradiLomitka = 0
For i = 1 To CestaPocetZnaku
     ZnakLomitko = Mid(CestaAdresare, i, 1)
     If ZnakLomitko = "\" Then
         PoradiLomitka = PoradiLomitka + 1
     ElseIf PoradiLomitka = PocetLomitekAdresare - KolikAdresaruNahoru Then
         PozadovaneLomitko = i
     End If
Next i


PozadovanyAdresar = Left(CestaAdresare, PozadovaneLomitko)

MsgBox (PozadovanyAdresar)

End Sub


Závěr

Poslední uvedené makro můžeme převést na funkci :)

Článek byl aktualizován: 21.01.2012 20:34

---

---

Další články k tématu

• Zpracovatelné formáty souborů v Excelu
• Existuje soubor - adresář (složka)
• Vypis cesty k souboru - právě čtete
• Vypsat adresáře - soubory
• Je soubor otevřen
• Otevřít soubor s heslem
• Otevřít soubor a předat mu nějaký parametr
• Tisk do *.pdf
• Smazat soubor
• Vytvořit smazat adresář
• Kopírovat a přejmenovávat soubory
• Omezení platnosti souboru - dokumentu
• Kdo přistupuje do souboru
• Velikost souboru
• Je atribut souboru pouze pro čtení - VBA Excel

Komentáře

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek