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

Kopie lässt sich nicht öffnen

Kopie lässt sich nicht öffnen
16.02.2023 04:44:13
Würzking94
Hallo Zusammen,
ich habe ein Makro, das eine Kopie (ohne Markos) auf einem Server, erstellt.
Wenn ich diese Kopie öffnen möchte, bekomme ich folgende Meldung:
Die Datei '...' kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht.
benenne ich die Datum in .xlsm kann ich die Datei öffnen.

Sub speichern()
Application.DisplayAlerts = False
Const PFAD$ = "\\server\Betrieb$\frei\frei\frei\"
Const SUF$ = ".xlsx"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim VDate$
Dim DName$
Dim VMinute$
Dim VStunde$
Dim Zwischen$
DName = Range("D23").Text
VStunde = Format(Range("B25").Value, "HH")
VMinute = Format(Range("B25").Value, "NN")
VDate = Format(Range("B24").Value, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=PFAD & VDate & " " & DName & " " & VStunde & "_" & VMinute & " Uhr.xlsx"
Application.DisplayAlerts = True
End Sub

ändere ich das wie folgt um:

ThisWorkbook.SaveCopyAs Filename:=PFAD & VDate & " " & DName & " " & VStunde & "_" & VMinute & " Uhr.xlsx", FileFormat:=xlOpenXMLWorkbook

bokomme ich folgende Fehlermeldung:
Fehler beim Kompilieren:
Benanntes Argument nicht gefunden
Ich hoffe jemand kann mir helfen und verraten wo ich einen Fehler eingebaut habe.
Die Google suche hat mir leider nicht helfen können.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopie lässt sich nicht öffnen
16.02.2023 05:15:30
RPP63
Moin!
Das ist doch eigentlich selbsterklärend.
https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.savecopyas
>>Speichert eine [exakte] Kopie der Arbeitsmappe in einer Datei, ändert aber nicht die geöffnete Arbeitsmappe im Arbeitsspeicher.
Das einzige benannte Argument der Methode lautet Filename (siehe Link).
Einzige Möglichkeit:
Nutze die Workbook.SaveAs-Methode und wechsle dort das FileFormat.
https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.saveas
Gruß Ralf
Anzeige
AW: Kopie lässt sich nicht öffnen
17.02.2023 05:39:46
Würzking94
Vielen Dank für die schnelle Antwort.
verstanden habe ich das jetzt, aber leider hilft mir das nicht so ganz weiter.
Noch ein Paar Informationen:
Dieses Makro befindet sich in einer Vorlage und wird beim Drucken ausgeführt.
Die Kopie soll nicht als Vorlage gespeichert werden sondern als Arbeitsmappe ohne Makro.
Wenn ich bei "Filename" die Endung ".xlsx" weglasse, wird mir im Ordner eine Datei ohne Endung angezeigt.
Wenn ich bei "Filename" die Endung ".XLS" eingebe, kann ich die Datei öffnen. allerdings werde ich beim öffnen dann gefragt ob ich Makros aktivieren will oder nicht.
Dies will ich aber umgehen, indem es in der Kopie keine Makros gibt.
wenn es nicht so funtionieren kann, werde ich das wohl mit ".XLS" machen müssen.
schönen Start in den Tag
Anzeige
AW: Kopie lässt sich nicht öffnen
17.02.2023 10:01:19
peterk
Hallo
Ein Beispiel:

Option Explicit
Sub Sa()
   ActiveWorkbook.Sheets.Copy  ' ein neues Workbook wird erzeugt und ist sofort aktiv
   ActiveWorkbook.SaveAs Filename:="C:\Users\...\SaveCopyAs.xlsx", FileFormat:=51
   ActiveWorkbook.Close
End Sub
Damit erzeugst Du eine Kopie deines aktiven Workbooks und speicherst sie dann ohne Makros.
Peter
AW: Kopie lässt sich nicht öffnen
18.02.2023 03:36:56
Würzking94
Vielen Danke dafür,
dies funktioniert und ich kann die Kopie ohne Fehlermeldung öffnen.
In der Kopie habe ich tatsächlich keine Makros, aber.
Auf der Vorlage gibt es Buttons die Makros auslösen.
Diese Buttons haben jetzt einen Link zu dem Makro in der Vorlagen Datei.
Dies stellt aber kein Problem dar.
Ich wünsche noch ein Schönes Wochenende
Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige