Hallo Hallo Hallo!
Also ich hab folgenden Auftrag: :)
Eine vbs schreiben, die in einer Exceldatei den Verknüpfungspfad abändert! (sonst unter Bearbeiten\Verknüpfungen manuell möglich)
Hab zum erstenmal eine VBS gebastelt und das ist das Ergebnis:
Dim xl
set xl = createobject("excel.application")
xl.workbooks.open("C:\test\2.xls")
xl.visible=true
xl.ActiveWorkbook.ChangeLink Name:="1.xls", NewName:="c:\test\3.xls", Type:=xlExcelLinks
xl.ActiveWindow.Close
xl.Application.Quit
set xl=nothing
Die Datei zu öffnen und zu schließen klappt eigentlich schonmal super. Aber sobald ich die Zeile:
xl.ActiveWorkbook.ChangeLink Name:="1.xls", NewName:="c:\test\3.xls", Type:=xlExcelLinks
mit aufnehme geht gar nichts mehr.
Ich hatte die Zeile als Makro in Excel mitgeschnitten. Also ist es wohl VBA - heißt das es kann in der VBS nicht funktionieren? Oder wo liegt mein Fehler?
(Tun sollte der Befehl folgendes: Datei 2.xls öffnen und den Pfad von 1.xls auf 3.xls abändern)
Als weiterführende Frage wäre dann noch: kann man ds ganze noch eleganter mit "GetObject" machen?
Ich danke Euch, mfg Nils