Aus xLS Datei ein bestimmtes Blatt als csv Datei
05.06.2005 16:23:18
Franz
Habe folgendes Problem. Ich möchte aus einer Arbeitsmappe ein bestimmtes Blatt als csv Datei in einen bestimmten Ordner kopieren wobei die csv Datei einen vergebenen Namen haben soll der aus den Inhalt einer bestimmten Zelle eines Arbeitsblattes der Datei + Datum & Uhrzeit
erstellt wird.
Folgende Lösung habe ich angedacht, aus der Startdatei wird eine Dummydatei erzeugt und in den Zielordner angelegt danach sollte die Dummydatei verwendet werden um die csv Datei mit der Namensvergabe zum teil aus der Startdatei erzewugt zu werden, danach wird die Dummydatei gelöscht.
Lieber wäre mir die direkte Lösung gleich von der Startdatei weg funktioniert leider nicht es wird immer die ganze Startdatei als csv gespeichert und nicht das Blatt aus der Datei lt. Bsp.:
Sub blatttocsv()
Sheets("csv").Select
Sheets("csv").Copy
ChDir "P:\Doku-Ftp-Excel\Ziel"
ActiveWorkbook.saveas Filename:="c:\Doku-Ftp-Excel\Ziel\dummy.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open Filename:="c:\Doku-Ftp-Excel\Ziel\dummy.xls"
Windows("dummy.xls").Activate
Sheets("csv").Select
Dim myDate As String, myTime As String
myDate = Format(Date, "dd.mm.yyyy")
myTime = Format(Now, "hh-mm-ss")
ThisWorkbook.saveas Filename:="P:\Doku-Ftp-Excel\Ziel\" & Range("a1").Value & "_" & myDate & " " & myTime & ".csv"
ActiveWindow.Close
Workbooks.Open Filename:="c:\Doku-Ftp-Excel\Ziel\dummy.xls"
ActiveWindow.Close
If Len(Dir("c:\Doku-Ftp-Excel\Ziel\dummy.xls")) > 0 Then
Kill "c:\Doku-Ftp-Excel\Ziel\dummy.xls"
MsgBox "DUMMY has been killed"
Else
MsgBox "DUMMY never existed"
End If
End
Sub
Für eine Hilfe wäre ich sehr dankbar