14.02.2023, 11:04
Guten Tag
Ich möchte den Pfad dynamisch abändern können. Die Abfrage (Verknüpfung) besteht bereits. Folgenden Code habe ich zusammengestellt:
Sub Change_DataSource()
Dim sFormula as string
Dim qry As WorkbookQuery
If ThisWorkbook.Queries.Count > 0 Then
Set qry = Thisworkbook.Queries(1)
Msgbox ThisWorkbook.Path
sFormula = qry.Formula
MsgBox sFormula
if Instr(1, sFormula, ThisWorkbook.Path) > 0 then MsgBox "Ja"
qry.Formula = sFormula
Set qry = Nothing
End if
End Sub
Vielen Dank für Eure Unterstützung.
Gruss
Stefan
Ich möchte den Pfad dynamisch abändern können. Die Abfrage (Verknüpfung) besteht bereits. Folgenden Code habe ich zusammengestellt:
Sub Change_DataSource()
Dim sFormula as string
Dim qry As WorkbookQuery
If ThisWorkbook.Queries.Count > 0 Then
Set qry = Thisworkbook.Queries(1)
Msgbox ThisWorkbook.Path
sFormula = qry.Formula
MsgBox sFormula
if Instr(1, sFormula, ThisWorkbook.Path) > 0 then MsgBox "Ja"
qry.Formula = sFormula
Set qry = Nothing
End if
End Sub
Vielen Dank für Eure Unterstützung.
Gruss
Stefan