Dateiname mit Datum
Bernd
habe ein kleines Problem und finde keine Lösung.
Mein Code speichert eine Tabelle als CSV-Datei. In der Tabelle ist ein Datum das im Dateinamen mit ausgegeben wird. Das Datum in der Tabelle ist Text(!) in Form TT.MM.JJJJ. und soll in der Tabelle auch unverändert bleiben. Ich bräuchte jetzt aber im Dateinamen die Form JJJJMMTT.
Beispiel: In Zelle E2 steht '11.01.2011, also soll jetzt der Dateiname "Test20110111.csv" lauten.
Mein Code zur Zeit
Sub Exiporti()
Dim Datum As String
Datum = Range("e2")
ChDrive "W"
ChDir "W:\TestOrdner"
ActiveWorkbook.SaveAs Filename:="Test " & Datum & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Gruß, Bernd
Anzeige