Supportnet Computer
Planet of Tech

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

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: