Datei Verschieben per VBA / Excel fehler (Excel.ex
04.02.2004 18:40:56
Andy
ich habe ein Problem ... ich möchte eine Datei in einen anderen Ordner speichern, und die Alte löschen, und dann die neue schließen ...
Die ganze Aktion wird per Button aus dem Tabellenblatt aus aufgerufen, also aus der Datei heraus, die verschoben werden soll .....
Nun dass funzt auch ganz gut, nur nach dem Verschieben, bringt mir Excel einen Fehler (Excel.exe) und schließt sich. Die Aktion an sich wurde aber richtig ausgeführt ...
hier mein code .. was könnte man daran verändern ??? ich weiß es nicht .. bin am Ende ... 1000 Dank an alle ...
Sub verschieben ()
Killpfad = ActiveWorkbook.FullName
Rem Pfad einlesen aus Datablock zur speicherung der neuen Datei
Pfad002 = Sheets("Data").Range("A64")
Data = ActiveWorkbook.Name
'Kompletten Pfad und Namen generieren für neue Datei
Filename = Pfad002 & Data
ActiveWorkbook.SaveAs Filename
Kill Killpfad
ActiveWorkbook.Close 'Active Workbook schließen
End Sub
Code eingefügt mit Syntaxhighlighter 2.5