Speichern einer Arbeitsmappe

Hallo zusammen,
ach auf die Gefahr hin, dass diese Frage schon mal irgendwie gestellt worden ist und ich die einfach nicht gefunden habe, möchte ich diese hier noch mal Stellen. Ich habe eine Exceldatei, die nach meinen vorgaben befüllt wird, das funktioniert auch sehr gut. Nun möchte ich diese Datei nach meinen Vorgaben unter einem bestimmten Namen speichern.
Derzeit mache ich das unter ActiveWorkbook.SaveAs Filename:=Pfad + CStr(a(0)) + "_en.xlsx",
Hier ist allerdings der Name meiner Arbeitsmappe, die bislang als Vorgabe diente verloren, und ich kann sie nicht mehr ansprechen. Ich könnte natürlich diese Mappe dann als Vorlage verwenden und so einen Workaround gestalten, ist aber eher umständlich denke ich.
Mir schwebt so etwas vor wie ich nehme die Vorlage, schreibe rein was ich möchte und speichere die unter einem neuen Namen ab, währen die Vorlage im Speicher gehalten wird. Nachdem ich die Abschrift der gefüllten Mappe vorgenommen habe, lösche ich alle Einträge und beschreibe diese neu. Die Lösung die ich jetzt habe, erfordert schließen der abgeschrieben Datei und neuöffnen der Vorlage, und das ist zeitintensiv.
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DateiSaveAs() 'Datei-Kopie mit Makros speichern, öffnen, und ohne Makros speichern Dim wkbAktiv As Workbook, wkbSave As Workbook Dim strDateiname As String, strExt As String 'testdaten Dim Pfad As String Dim a(0 To 1) a(0) = 3 Pfad = "C:\users\public\Test\" strDateiname = Pfad + CStr(a(0)) & "_en." Set wkbAktiv = ActiveWorkbook 'Namenserweiterung der aktiven Datei ermitteln strExt = Mid(wkbAktiv.Name, InStrRev(wkbAktiv.Name, ".") + 1) 'Kopie der Datei unter neuem Namen speichern wkbAktiv.SaveCopyAs strDateiname & strExt 'Kopie öffnen Set wkbSave = Application.Workbooks.Open(strDateiname & "xlsm", ReadOnly:=True) 'Kopie ohne Makros speichern Application.DisplayAlerts = False wkbSave.SaveAs Filename:=strDateiname & "xlsx", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True 'Kopie mit Makros wieder löschen wkbSave.Close savechanges:=False VBA.Kill strDateiname & strExt wkbAktiv.Activate End Sub

Hallo Franz,
Danke erst mal für die Hilfe, die ich nur durch Zufall entdeckt habe. Eigentlich dachte ich, dass ich "bei Antwort per E-Mail informieren" gehakt hätte.
Ich habe den QC von Dir mal kurz überflogen aber noch nicht getestet. Das ist natürlich eine Möglichkeit mit der Umbenennung. Aber ich habe auch eine Lücke in meiner Beschreibung gefunden, wenn man so in der Materie drin, steckt, dann setzt man leicht Gedanklich einiges voraus, was das Gegenüber eben nicht erahnen kann.
Also ich habe eine XLSM, da steht alles drin was Excel machen soll:
- nehme die Daten aus der XLSM und lade sie
- öffne eine Datei Formular und schreibe einen Teil der Daten da hinein
- speichere dieses Formular als pdf
- Lösche alle geschrieben Daten wieder daraus für den nächsten Durchgang
- Nehme einen anderen Teil der Daten und schreibe die in zwei andere und ähnliche Dateien (eine deutsch, eine englisch)
Eben jene Dateien sind keine xlsm Dateien sondern nur xlsx. Sie werden dann nur noch unter neuem Namen gespeichert und gegen versehentlichen Falschbeschreiben geschützt. Durch das Speichern verlieren sie den Vorlagenamen und können nicht mehr angesprochen werden. Ich schließe sie dann und mache die Vorlage neu auf, was eben etwas zeitintensiv ist. Heute morgen hatte ich 699 Dateien in 30 min erzeugt.. das ist mir etwas zu lange. Weil Excel immer läd und prüft innerhalb der Startroutine.
Vielleicht kann man ja auch so ein "schreiben ohne öffnen machen". Das Kopieren und Umbenennen der Vorlagen ginge ja rasend schnell. Wenn man dann die umbenannte Datei einfach nur mit neuen Inhalten beschreiben würde ; ganz im Stil "auslesen ohne öffnen" aber eben aus der anderen Richtung...

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread