CSV konvertieren mit Datum Uhrzeit
27.05.2005 07:48:55
GeorgK
ich konvertiere xla. in csv mit folgendem Makro:
Sub csvkonvertieren()
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Copy
Workbooks.Add
Application.DisplayAlerts = False
ActiveSheet.Paste
Sheets(Array("Tabelle2", "Tabelle3")).Select
Sheets("Tabelle2").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
ChDir "C:\Dokumente und Einstellungen\User\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\User\Desktop\NeueProben.csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub
Ich hab das ganze mit dem Recorder aufgenommen und habe zwei Fragen.
1. wie kann ich die neue Mappe nur mit einem TB anlegen, und
2. wie kann ich an den Namen "NeueProben" das aktuelle Datum mit Uhrzeit hinzufügen, so daß der Name z.B. (NeueProben 27.05.05 07.47) lautet.
Vielen Dank für jede Hilfe
Grüße
Georg