VBA Verketten von Strings mit Daten

Ich versuche, ein Sub zu erstellen, um mein Excel-Arbeitsblatt mit einem Zeitstempel zu speichern, wann es gespeichert wurde, bin ich überhaupt nicht VBA und der Fehler lässt mich denken, dass ich die Datetime.now definieren sollte eine Variable, aber selbst das hat nicht funktioniert, wenn ich es richtig gemacht habe.VBA Verketten von Strings mit Daten

Sub SaveToDir() 
ActiveWorkbook.SaveAs ("T:\BRojas\test2" & Text(DateTime.Now()) & ".xlsx") 

End Sub

Mein Fehler sagt

Compile error: Sub or Function not defined

Dank.

Quelle

2017-06-27 Bruno

ActiveWorkbook.SaveAs Versuchen ("T: \ AWilliams \ test2" & CStr (DateTime.Now()) & ".xlsx") soll – Sorceri

arbeitet es nicht funktioniert, hat gerade versuchte es . Ich habe "Methode 'SaveAs' des Objekts '_Workbook' fehlgeschlagen" – Bruno

Siehe die Antworten unten, da das Problem mit dem Format der datetime Schrägstriche und Doppelpunkte ist. – Sorceri

Text ist eine Excel-Arbeitsblattfunktion. Das Äquivalent in VBA ist Format.

So möchten Sie verwenden:

ActiveWorkbook.SaveAs "T:\AWilliams\test2" & Format(DateTime.Now(), "yyyymmdd-hhmmss") & ".xlsx"

verwenden, was Datums-/Uhrzeitformat Sie anstelle des „yyyymmdd-hhmmss“ bevorzugen, die ich oben verwendet. Schließen Sie jedoch keine Schrägstriche (/) oder Doppelpunkte (:) ein, da sie in Dateinamen nicht gültig sind.

Quelle

2017-06-27 21:05:46 YowE3K

Dieser hat funktioniert, danke eine Tonne – Bruno

Wie Sorceri kommentiert, sollte das funktionieren, aber Sie müssen die Colons im Zeitstempel noch vor dem Speichern ersetzen.

ActiveWorkbook.SaveAs ("T:\AWilliams\test2" & replace(CStr(DateTime.Now()),":","-") & ".xlsx")

Quelle

2017-06-27 21:05:50

Schrägstriche ('/') sind auch ungültig. – YowE3K

VBA Verketten von Strings mit Daten

Antwort

Verwandte Themen