Excel Makros Dateigröße

Question

Ich habe eine Excel-Datei mit Makros. Die tatsächliche Datei ist 6 MB und wenn eine Save Macro ausgeführt wird, wird die Datei gespeichert, aber ihre Größe beträgt etwa 32 MB und keine Makros enthalten.

Ich weiß nicht, warum die Größe der gespeicherten Datei größer als die tatsächliche Dateigröße ist.

Speichern Makro

Sub SaveSummaries() 
    ' 
    ' SaveSummaries Macro 
    ' 
    Application.DisplayAlerts = False 
    ActiveWorkbook.Save 
    Sheets(Array("Donor Totals", "GDBA", "DT", "CLIC", "GOSH")).Select 
    Sheets("Donor Totals").Activate 
    Sheets(Array("Donor Totals", "GDBA", "DT", "CLIC", "GOSH")).Copy 
    ChDir "C:\Users\Chandra.Cherukuri\Desktop\Area Donor Summaries" 
    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Chandra.Cherukuri\Desktop\Area Donor Summaries\Donor Summary_All Charities.xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 
    ActiveWindow.Close 
    Sheets("Area Summaries").Select 

End Sub 

Jede Hilfe wird geschätzt.

Answer 1

Der Schlüssel ist in der Zeile:

ActiveWorkbook.SaveAs Filename:= _ 
    "C:\Users\Chandra.Cherukuri\Desktop\Area Donor Summaries\Donor Summary_All Charities.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

wo Sie das Format als xlOpenXMLWorkbook angeben. In diesem Dateiformat können Sie keine Makros speichern und es ist eine XML-Datei - was im Grunde eine Textdatei mit viel Aufwand (Tags) bedeutet.

Wenn Sie die Arbeitsmappe mit Makros im Open XML-Format speichern möchten, können Sie verwenden: xlOpenXMLWorkbookMacroEnabled Option, aber es wird eine große Datei kiste. Meiner Meinung nach sind entweder xlExcel12 (Binärdatei mit Makros, * .xslb) oder xlExcel8 (Excel-Standarddatei bis Version 2003) bessere Optionen.