otevření souboru nacházejícího se ve složce o úroveň výše

[m.niki]

Dobrý den, když ve VBA otevírám soubor, který se nachází ve stejném adresáři jako jako soubor se kterým pracuji, je zápis

Kód: Vybrat vše

Application.Workbooks.Open ThisWorkbook.Path & "\sesit.xls"

potřeboval bych poradit, jak má tento kód vypadat, když se soubor který chci otevřít, nachází v adresářové struktuře o úroveň výše, než soubor, se kterým pracuji.

Složka, ve které je soubor, se kterým pracuji, se může pokaždé jmenovat jinak, absolutní určení adresy nemůžu použít, protože nevím, kam si uživatel sloužku se soubory nahraje. díky za rady

[navstevnik]

S pouzitim napovedy k VBA v Excelu muzes napsat kod:

Kód: Vybrat vše

Option Explicit

Sub test()
  'Tools / References / Microsoft Scripting Runtime
  Dim fso As Object
  Dim CestaNadSlozkaBezLomitka As String

  Set fso = CreateObject("Scripting.FileSystemObject")

  CestaNadSlozkaBezLomitka = fso.GetParentFolderName(ActiveWorkbook.Path)

  Application.Workbooks.Open CestaNadSlozkaBezLomitka & "\sesit.xls"
  '...
  Set fso = Nothing
End Sub

PS.: nebo muzes z retezce ziskaneho ActiveWorkbook.Path odstranit zprava vsechny znaky az po "\"