|
Hallo Forum,
ich habe eine xml Datei über den xml-Datenimport Assistenten mit meinem Projekt verknüpft. Dazu wird auf dem Tabellenblatt "Import" ein Tabellenblatt aus einer anderen Datei verknüpft. Das funktioniert super. Aktualisierung werden übergeben.
Ich möchte nun, da sich der Pfad der xml Datei am Jahresanfang ändert, diesen gerne per VBA ändern. Das geht über den Assistenten ja recht problemlos. Da ich aber nicht immer am Jahresanfang verfügbar bin, und die Kollegen nicht so affin mit der Materie umgehen können, würde ich das gerne etwas vereinfachen.
Dazu habe ich eine Textbox mit dem Pfad der Datei.
Diese Textbox_pfad.Value soll er nun verwenden.
Soweit bin ich ja schon
Private Sub CommandButton1_Click()
Dim pfad
pfad = Sheets("Einstellungen").TextBox_pfad.Value
Sheets("Import").Select
With ActiveWorkbook.Connections("Test-Verindung").OLEDBConnection
.SourceConnectionFile = pfad
End With
ActiveWorkbook.Connections("test").Refresh
End Sub
Jetzt funktioniert das schon recht gut. Die Verbindungsdatei ( Daten -- Eigenschaften -- Verbindungeigenschaften -- Definition) wird übernommen. Ich denke das ist
SourceConnectionFile
Allerdings der String in Verbindungszeichefolge wird nicht geändert. Ich denke das müßte dann
.Conenction
sein. Aber da verläßt es mich dann, da komme ich nicht mit dem string zurecht.
.Connection = Pfad
Aber da muss ja allerhand Zusatzinformition mit in diesen String.....
Vielleicht habt Ihr hier eine Lösung für mich.
Gruß
Andreas
|