MS Excel

Toto by Vám malo fungovať:
Private Sub Workbook_Open()
Dim CS As String, Cesta As String, Poz1 As Long, Poz2 As Long

On Error GoTo CHYBA
With ThisWorkbook
Cesta = .Path & "\zdrojová data.xls"
With .Connections("zdrojová data").OLEDBConnection
CS = .Connection
Poz1 = InStr(1, CS, "Source=") + 6
Poz2 = Len(CS) - InStr(Poz1, CS, ";Mode=") + 1
CS = Left$(CS, Poz1) & Cesta & Right$(CS, Poz2)
.Connection = CS
.Refresh
End With
End With
Exit Sub

CHYBA:
MsgBox ("Chyba pri aktualizácii zdrojovej tabuľky :" & vbNewLine & Cesta)
End Subcitovat

Vše funguje jak má. Děkuji za pomoc.citovat

Zatiaľ veru neviem, nahodil som si do virtuálky XP s Off2003, ale len čisté XP SP3, aj na Off iba SP3. V Off2003 nieje pod ThisWorkbook objekt Connections, ale iba pod List(x).QueryTables.

Možno je potrebné urobiť kompletnú aktualizáciu OS, Off, .NET, ale to je tak na pol dňa, alebo zapnúť References, žiaľ som neprišiel na to aké.

Prípadne skúsiť vytvoriť u Vás rovnaký dotaz rovnakým spôsobom na rovnakých dátach, v Off 2003, a tieto dotazy by sa použili podmienene podľa verzie Off (ak obdobný dotaz Off 2003 podporuje).

Ja som skúsil napr. MS Query dotaz, ktorý by mal snáď fungovať aj tam aj tam.

Niekto zbehlejší snáď popichne, čo s tým...citovat

Tak toto bohužel také nefunguje pod office 2003. chyba zde Set CON = .Connections("zdrojová data").OLEDBConnection. nevím proč tady když sem by to nemělo dojít ale přesto děkuji za snahu.citovat

verze 11.0citovat