File veel te groot bij opslaan met macro

[TMD]

Hallo,

Ik sla delen van mijn excel-files op met onderstaande codes. De bestanden worden echter opgeslagen met soms 2mb, 9mb of 40 mb. Zit dat in dit stukje code? Of zou het kunnen dat de rest van mijn code corrupt is? Ik heb geprobeerd 'xlOpenXMLWorkbook' aan te passen naar 'xlNormal' wat wel helpt (nu 2mb per bestand) maar nog steeds niet goed genoeg.

ActiveWorkbook.SaveAs Filename:= _
        "H:\" & STORE & " " & DEPT & " " & FormatDateTime(Date, vbShortDate) & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

 

[VenA]

Op deze vraag kan toch niemand een antwoord geven.......

Hoe kan je delen van xl-files opslaan? Wat is de rest van je code?

 

[snb]

Heb je gecontroleerd op 'usedrange' ?