Office: Vorlage als xlsm mit Pfadangabe speichern

aef100 · 17. März 2015

Hallo zusammen,

ich möchte eine Excel-Vorlage (*xltm), beim speichern als *xlsm abspeichern.
Das ganze soll über vba laufen.

Ich habe es auch soweit hinbekommen, doch leider kann ich mit meinen begrenzten Kenntnissen den Speicherpfad nicht einbinden.

Auch möchte ich es zulassen dass trotzdem auch *xlsx und *xltm ausgewählt werden können. Anzeigen in der Auswahl kann ich es , allerdings wird die Datei dann nicht gespeichert, weil die entsprechenden FileFormate nicht vorhanden sind.
Hier mein Code:
Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Path = "" Then
Dim varWorkbookName
Application.EnableEvents = False
varWorkbookName = Application.GetSaveAsFilename("Test", FileFilter:="Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm,Excel-Arbeitsmappe (*.xlsx), *.xlsx),Excel-Vorlage mit Makros (*.xltm), *.xltm", Title:="Speichern als")
If VarType(varWorkbookName) = vbBoolean Then Cancel = True
If Not Cancel Then _
ThisWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=52
Cancel = True
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für Hilfe wäre ich Euch sehr dankbar.
Excel-Version: 2010

Andreas

:)

Hajo_Zi · 19. März 2015

warum nicht
Application.Dialogs(xlDialogSaveAs).Show "" ' speichern unter

aef100 · 19. März 2015

Danke für die schnelle Antwort.
Es funktioniert soweit, allerdings wird das Speichern 2x aufgerufen.

MfG

Hajo_Zi · 19. März 2015

mit meiner Zeile wird es nur einmal aufgerufen. Deinen getesteten Code sehe ich nicht.

Gruß Hajo

aef100 · 19. März 2015

Ich möchte den Pfad in meinen oben geposteten Code einbinden.

aef100 · 19. März 2015

Hallo,

irgendetwas mache ich falsch. Das weiß ich, aber leider weiß ich nicht was es ist. Das Speichern wird immer 2x aufgerufen.
Vielleicht kann mir jemand helfen.

MfG
Andreas

Office: Vorlage als xlsm mit Pfadangabe speichern

Vorlage als xlsm mit Pfadangabe speichern

Vorlage als xlsm mit Pfadangabe speichern

Vorlage als xlsm mit Pfadangabe speichern

Vorlage als xlsm mit Pfadangabe speichern - Similar Threads - Vorlage xlsm Pfadangabe

Tabellenränder beim Druck ausblenden

Format(vorlage) für Zeilennummern ändern

Formatvorlage

Vorlagen (nach)bearbeiten und speichern

Dynamische Verknüpfung von Dokumenten

Inhaltsverzeichnis mit römischen Zahlen und der Rest in arabischen Zahlen

Inputwert in Vorlage übergeben und als xlsm speichern