Wie ändern Sie code für Excel 2007 verwenden SaveAs

Ich habe ein excel-template mit einem makro zum speichern der Datei, so dass der Anwender über standardisierte Dateinamen-Formate. Erstellt habe ich den code mit Excel 2003. der code ist wie folgt:

Sub SaveBook()
   Dim sFile As String
   sFile = "ConsolidatedDemand" & "_" & Format(Now(), "yyyy.mm.dd") & ".xls"
   ActiveWorkbook.SaveAs Filename:= "\\file location\" & sFile
End Sub

Habe ich einen Benutzer, der mit Excel 2007. Wenn Sie versuchen, das makro ausgeführt, Sie erhalten eine Fehlermeldung:
"Die folgenden features können nicht gespeichert werden, in makro-frei-Arbeitsmappen: VB-Projekt.
Zum speichern einer Datei mit diesen features klicken Sie auf Nein und wählen Sie dann die Makros aktiviert wurden, wird der Dateityp in der Liste Dateityp. Weiterhin speichern als makro-Kostenlose Arbeitsmappe, klicken Sie auf "ja"

Ich habe versucht, chaing die Datei-Erweiterung ".xlsm" in der zweiten Zeile des Codes, aber das ergab die gleiche Fehlermeldung. Irgendwelche anderen Ideen, wie kann ich diesen code ändern, so dass es für Excel 2007-Benutzer?

InformationsquelleAutor Jon | 2011-05-24
  1. 5

    (entnommen aus: http://blogs.office.com/b/microsoft-excel/archive/2009/07/07/use-the-vba-saveas-method-in-excel-2007.aspx)

    In Excel 2007, die SaveAs-Methode erfordert, dass Sie sowohl den parameter FileFormat und die richtige Datei-Erweiterung.

    Zum Beispiel in Excel 2007 diese Codezeile wird fehlschlagen, wenn das ActiveWorkbook nicht ein .xlsm Datei:

    ActiveWorkbook.SaveAs "C:\ron.xlsm"

    Aber dieser code funktioniert immer:

    ActiveWorkbook.SaveAs "C:\ron.xlsm", fileformat:=52

    Diese sind die wichtigsten Dateiformate, die in Excel 2007:

    • 51 = xlOpenXMLWorkbook (ohne makro ' s im Jahr 2007 .xlsx)
    • 52 = xlOpenXMLWorkbookMacroEnabled (mit oder ohne makro in 2007,
      .xlsm)
    • 50 = xlExcel12 (Binäre Excel-Arbeitsmappe in 2007 mit oder ohne
      makro ' s, .xlsb)
    • 56 = xlExcel8 (97-2003-format in Excel 2007 .xls)
    • Dies funktionierte perfekt. Danke!
    InformationsquelleAutor bouvierr
  2. 2

    Nur incase Sie nicht wissen,, Sie können überprüfen, welche version der Anwendung ist in dem makro, so können Sie bestimmen, ob es gespeichert werden soll, wie "xls" oder "xlsm"

    If Application.Version = "13.0" Then
    MsgBox "You are using Excel 2010."
ElseIf Application.Version = "12.0" Then
    MsgBox "You are using Excel 2007."
ElseIf Application.Version = "11.0" Then
    MsgBox "You are using Excel 2003."
ElseIf Application.Version = "10.0" Then
    MsgBox "You are using Excel 2002."
ElseIf Application.Version = "9.0" Then
    MsgBox "You are using Excel 2000."
ElseIf Application.Version = "8.0" Then
    MsgBox "You are using Excel 97."
ElseIf Application.Version = "7.0" Then
    MsgBox "You are using Excel 95."
Else
    MsgBox "You are using an unknown version of Excel: " & Application.Version
End If

    Hoffe, das hilft.

    InformationsquelleAutor Harag
Schreibe einen Kommentar