Office: Datenquelle ändern per Makro

Hallo zusammen,

ich habe folgendes Problem:

ich möchte gerne beim öffnen einer Excel Datei ein Makro starten

Also mit Private Sub WorkbookOpen() in "DieseArbeitsmappe"

und nun möchte ich einfach nur den assistenten starten, der die Verknüpfung zu anderen Datenquellen regelt .

Manuell geht das mit Bearbeiten --> Verknüpfungen

Aber wie geht das mit VBA?

Laut Hilfe mit ActiveWorkbook.ChangeLink

Allerdings kenne ich die zukünftigen Dateinamen nicht, so daß ich das nicht im Hintergrund laufen lassen kann, es muss also manuell die Datei ausgewählt werden.
der makrorecorder spuckt nur einen code aus, wenn ich auf Quelle ändern gehe und dann definitiv eine auswähle. dann steht aber im code auch nur der absolute pfad inkl. der dateinamen!
hat da einer eine idee zu?

gruß und schönes wochenende

thomas

:)

 

Moin, thomas,

Code:

Der gem. VBA-Hilfe zuständige Assistent sollte per

Code:

aufgerufen werden können, was die mir zur Verfügung stehende Version von Excel2003 mit dem Laufzeitfehler 1004 quittiert. In den AddIns für FindLink wirdf normalerweise per Inputbox der Name der gesuchten Datei abgefragt, dies könnte GetOpenFilename übernehmen...

 

Hi Jinx,

der Fehler 1004 kommt bei mir auch. Leider kann ich allerdings nicht nachvollziehen, was du mit dem findlink meinst oder wie das geht. kannst du mir das etwas ausführlicher erklären?

Edit:

Habe es nun mit Application.Dialogs(xlDialogOpenLinks).Show geschafft, zumindest den Assistenten zu öffnen, wie könnte ich nun in den Dialog "Quelle ändern" direkt kommen? Oder muss ich das mit rein VBA-Code lösen?

ich habe es glaub ich gefunden, was ich suche, allerdings möchte ich vorher noch eine ja nein abfrage starten, wenn nein, dann abbruch. Kann mir da jemand weiterhelfen?

Code:

 

Moin, toelsen,

eine Abfrage ließe sich so verwenden:

Code:

 

super, so gehts prima