Supportnet / Forum / Tabellenkalkulation
Makro-Pfad um CD zu brennen
Frage
Habe für meine Diplomarbeit eine Makro-Programmierung erstellt, und möchte diese auf CD brennen! Leider stimmen die Pfade nicht mehr! Kann mir jemand sagen wie ich diese abändern muss?
Antwort 1 von Dom1984
Hallo nochmal,
bräuchte wirklich dringend Hilfe.
Hiermal der Pfad der umgeändert werde müsste:
Sub Development07()
'
' Development07 Makro
' Makro am 20.03.2007 von ....aufgezeichnet
'
'
ChDir "F:\LO\Kennzahlen\Deckblätter"
Workbooks.Open Filename:= _
"F:\LO\Kennzahlen\Deckblätter\Development Key Figures 07_08.xls"
End Sub
Durch das Makro soll einfach ein Excel-Blatt geöffnet werden. Leider funktionieren die alten Pfade nicht, nachdem ich das Programm auf CD gebrannt habe!
Vielleicht kann mir jemand helfen.
Schon mal vielen Dank im voraus
bräuchte wirklich dringend Hilfe.
Hiermal der Pfad der umgeändert werde müsste:
Sub Development07()
'
' Development07 Makro
' Makro am 20.03.2007 von ....aufgezeichnet
'
'
ChDir "F:\LO\Kennzahlen\Deckblätter"
Workbooks.Open Filename:= _
"F:\LO\Kennzahlen\Deckblätter\Development Key Figures 07_08.xls"
End Sub
Durch das Makro soll einfach ein Excel-Blatt geöffnet werden. Leider funktionieren die alten Pfade nicht, nachdem ich das Programm auf CD gebrannt habe!
Vielleicht kann mir jemand helfen.
Schon mal vielen Dank im voraus
Antwort 2 von Dom1984
Hallo,
ich habe dazu einen Beitrag im Forum mit folgender Lösung gefunden:
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung 1.XLS"
Komme aber damit nicht zu recht. Kann mir bitte jemand helfen, ist sehr dringend!
Vielen Dank im Voraus
ich habe dazu einen Beitrag im Forum mit folgender Lösung gefunden:
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung 1.XLS"
Komme aber damit nicht zu recht. Kann mir bitte jemand helfen, ist sehr dringend!
Vielen Dank im Voraus
Antwort 3 von Gast1
Hallo,
versuche es mal so:
Workbooks.Open Filename:=ThisWorkbook.Path & _
"F:\LO\Kennzahlen\Deckblätter\Development Key Figures 07_08.xls"
Gruß Odje
versuche es mal so:
Workbooks.Open Filename:=ThisWorkbook.Path & _
"F:\LO\Kennzahlen\Deckblätter\Development Key Figures 07_08.xls"
Gruß Odje

