Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xlsx speichern

Forumthread: xlsx speichern

xlsx speichern
01.04.2021 14:04:23
Heinzs
Hallo Excel Fans,
ich habe eine Exceltabelle mit mehreren Sheets im Format xltm.
Hier soll ein Macro folgendes ausführen:
Gesamte Tabelle mit allen Sheets als xlsx ohne Makros speichern
xlsx schießen
und zur Ausgangsapplikation xltm zurückkehren
Hat jemand eine Idee?
Danke für Hilfe und frohe Ostern :)
MfG
Heinz

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gut? Aufzeichnen: KopieSpeichernUnter owT
01.04.2021 15:07:03
EtoPHG


AW: xlsx speichern
01.04.2021 15:11:05
volti
Hallo Heinz,
falls niemand eine bessere Idee hat, könntest Du es ja mit diesem Ansatz hier versuchen. Ob das mit xltm genommen wird, weiß ich nicht.
Die SaveCopyAs-Funktion erlaubt leider keine Änderung des Formats...
Code:



[Cc]



Sub DateiKopieAlsXlsx()
  Dim sFilename As String
  
  With ThisWorkbook
      sFilename = Replace(.FullName, ".xltm", "_Kopie.xltm")
      .SaveCopyAs FileName:=sFilename
      With GetObject(PathName:=sFilename)
          Application.DisplayAlerts = False
          .SaveAs Replace(sFilename, "_Kopie.xltm", ".xlsx"), FileFormat:=51
          .Close savechanges:=False
          Application.DisplayAlerts = True
      End With
      Kill sFilename
  End With
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Anzeige
AW: xlsx speichern
01.04.2021 15:53:17
Heinz
Hallo,
Danke für Eure Hilfe!
Ich habe die Idee von Karl-Heinz erfolgreich umgesetzt.
Happy Easter!
MfG
Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige