Ich muss ein paar Dinge tun, die einfach erscheinen, bei denen ich aber nicht weiß, wie ich sie umsetzen soll.
Ich muss einen Ordner mit dem heutigen Datum erstellen. Das ist in Ordnung. Dann muss ich eine Datei mit Text und dem heutigen Datum speichern (auch in Ordnung).
Was mich beschäftigt, ist, dass ich die neue Datei im neuen Ordner speichern muss. Wie kann ich die Datei sowohl mit dem heutigen Datum als auch mit dem heutigen Datum im neuen Ordner speichern? (Wenn der Dateipfad konstant wäre, wäre das kein Problem, aber wenn sich ein Teil des Pfads je nach Datum ändert, weiß ich nicht, wie das geht.)
Das habe ich versucht, aber es funktioniert nicht. Ich erhalte die folgende Fehlermeldung: 1004: Anwendungsdefinierter oder objektdefinierter Fehler.
Sub filesave()
ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")
End Sub
Dies ist der Code zum Erstellen des Ordners (der perfekt funktioniert):
Sub FolderCreate()
MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")
End Sub
Bitte beachten Sie, dass der Dateipfad/das Verzeichnis aus Sicherheitsgründen leicht geändert/vereinfacht wurde.
Antwort1
Nur eine Vermutung:
fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook