Supportnet / Forum / Tabellenkalkulation
Makro, Datei speichern + Dateinamen definieren
Frage
Hallo,
ich moechte eine Datei durch ein Makro automatisch speichern.
Das hoert sich erstmal einfach an. Problem ist aber dass ich den Dateinamen festlegen will.
Beispiel: Meine Datei hat ein Feld "C12" in der die Rechnnr. steht.
Mein Dateiname soll also so aussehen: Rechnnr. + Wert aus C12.xls
und zusaetzlich will ich noch den Ort bestimmen wo es gespeichert werden soll
Habe das mal so probiert:
hier ist aber noch nciht der Ort drin wo es gespeichert werden soll:
("Invoice_Number_FacStorage") ist ein Zugriff auf einen Namen den ich definiert habe in der Tabelle
First = Worksheets("Recap").Range("Invoice_Number_FacStorage").Value
fileSaveName = "Invoice " + First
ActiveWorkbook.SaveAs Filename:= _
fileSaveName _
, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Thanks,
Chris
Antwort 1 von Shaori
Hallo Chris,
du kannst in den String fileSaveName einfach den Pfad mit reinschreiben an den Anfang
mfg
Shaori
du kannst in den String fileSaveName einfach den Pfad mit reinschreiben an den Anfang
mfg
Shaori
Antwort 2 von fedjo
Hi chris,
versuch doch mal hiermit:
Option Explicit
Public Sub Speichern()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = "Rechnnr" & Range("C12").Value & ".XLS"
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Neuer Ordner\" & strDateiname)
End Sub
In ein Modul einfügen und Pad anpassen.
Gruß
fedjo
versuch doch mal hiermit:
Option Explicit
Public Sub Speichern()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = "Rechnnr" & Range("C12").Value & ".XLS"
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Neuer Ordner\" & strDateiname)
End Sub
In ein Modul einfügen und Pad anpassen.
Gruß
fedjo