Datenexp. anpassen wenn Zieldatei verschoben wird
24.02.2006 15:34:18
JMR
hab mal wieder ein kleines Problem, vielleicht kann mir jemand helfen? Mit Hilfe des folgenden Codeauszug exportiere ich meine Daten. Wie muss ich das Makro anpassen, dass es den Pfad automatisch anpasst, wenn die Zieldatei verschoben wird (Pfad dann z.B. F:\Server\Storico\Storico_BAM.xls, nur als Bsp gedacht, spaeterer Pfad noch unbekannt!)? Geht das ueberhaupt?
Hier der Codeauszug:
Range("A10:G" & Range("G65536").End(xlUp).Row).Copy
Workbooks.Open Filename:= _
"D:\r3\Storico\Storico_BAM.xls"
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Danke fuer die Bemuehungen...
Gruesse,
Markus