Otevření Workbooku z VBA

Teoreticky změnou vlastnosti IsAddin pro ThisWorkbook na True. Ale je to nepraktické, pomalé, hloupé. Existuje smysluplnější cesta – přístup přes GetObject.

Díky za tip.
jak přesně má fungovat připojení na data? Nějak mi to pořád načítá stená data z vedlejší excelovské tabulky, i když v ní něco změním. Připojení dělám v listě tlačítkem. Jsem z toho jelen, vypadá to, jako by si Excel ta data někde uložil a kašlal na změny ve zdrojové tabulce.
Dovolím si uvést kód viz níže. Vyvolá Userform, připojí se datově na list1 souboru DBzakaznici.xls, překopíruje je do listu „Zak“ volajícího souboru. Na formuláři je pak navázané kombo, kde jsou v seznamu zákazníci. Po ukončení formuláře by se mělo zrušit datové připojení. Ale asi to funguje nějak jinak.
cestazak = ThisWorkbook.Sheets(„servis“).Cells(25, 2)
Worksheets(„Zak“).Rows(„2:1010“).Delete
‚On Error Resume Next
With Worksheets(„Zak“).ListObjects.Add(SourceType:=0, Source:= _
„ODBC;DSN=Excel Files;DBQ=“ + cestazak + „;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;“ _
, Destination:=Worksheets(„Zak“).Range(„$A$2“)).QueryTable
.CommandText = Array( _
„SELECT `List1$`.Firma, `List1$`.Ulice, `List1$`.PSC, `List1$`.Obec, `List1$`.kontakt, `List1$`.telefon, `List1$`.fax, `List1$`.`e-mail`, `List1$`.ičo, `List1$`.dič“ & Chr(13) & „“ & Chr(10) & „FROM `D:aklfirmyDBzakaznici.x“ _
, „ls`.`List1$` `List1$`“ & Chr(13) & „“ & Chr(10) & „ORDER BY `List1$`.Firma“)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = „z_Excel_Files“
.Refresh BackgroundQuery:=False
End With
Worksheets(„Zak“).Cells(1, 1).FormulaR1C1 = „=COUNTA(R[2]C:R[1002]C)“
frmVstupy.Show
ActiveWorkbook.Connections(1).Delete

Omlouvám, za rozsáhlý dotaz, přehlédl jsem, že v kódu je za FROM napevno v dotazu cesta na soubor.
Faltýnek