Microsoft Excel

Herbers Excel/VBA-Archiv

Abändern eines bestehenden Makros | Herbers Excel-Forum


Betrifft: Abändern eines bestehenden Makros von: Kaspar
Geschrieben am: 20.02.2012 10:28:01

Servus zusammen

Habe ein Makro übernommen, das eine Arbeitsmappe resp. bestimmte Laschen daraus ohne Formeln und dergl. (--> d.h. nur die blossen Zahlen) in einem vorgegebenen Ordern abspeichert als xls abspeichert. Ich möchte nun, dass das Format von xls auf xlsx speichert.

hier das Makro:

Sub SaveAsEmailVersion()
'
' SaveAsEmailVersion Macro
'
    Application.Run "RefireBLP"
    ActiveWorkbook.SaveAs FileName:="S:\Kunden\xy\125648\PF E.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Sheets("Watch List").Select
    Application.Run "BLPLinkReset"
    Application.Run "RefireBLP"
    Sheets(Array("Watch List", "Security List", "Struki", "Portfolio DB", "AssCurrAlloc", " _
Charts", "RUST", "Y und C", "Codes")).Select
    Sheets("Watch List").Activate
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Security List").Select
    Application.Run "BLPLinkReset"
    ActiveWorkbook.Save
    Application.Run "RefireBLP"
End Sub
Wenn ich den ActiveWorkbook.SaveAs FileName:="S:\Kunden\xy\125648\PF E.xls", _ auf xlsx am Schluss abändere kommt dann beim öffnen dieser Datei die Fehlermeldung, dass die Datei nicht geöffnet werden kann, da das Dateiformat oder die Dateierweiterung ungültig ist.

Kann mir da jemand weiterhelfen?

Beste Grüsse
Kaspar

  

Betrifft: AW: Abändern eines bestehenden Makros von: Tino
Geschrieben am: 20.02.2012 10:35:52

Hallo,
du müsstest beim FileFormat das richtige Format angeben.
Für *.xlsx ist es FileFormat:=51 (xlOpenXMLWorkbook) und für *.xlsm FileFormat:=52 (xlOpenXMLWorkbookMacroEnabled)

Gruß Tino


  

Betrifft: @Tino von: Kaspar
Geschrieben am: 20.02.2012 11:05:30

Super, hat funktioniert. Vielen Dank


Beiträge aus den Excel-Beispielen zum Thema "Abändern eines bestehenden Makros"