硬拷贝的.xlsx文件与源文件相比要大很多倍

Question

我有一个.xlsb文件，在其中创建纸页的硬拷贝版本以用于历史记录。

.xlsb文件（包含多个带有公式和数据的工作表）约为5mb。

带有纯数字（无格式）的硬拷贝版本大约为117kb。 当我也复制格式时，文件大小为92.5mb，代码运行将近2分钟以完全执行。

我使用以下代码：

Sub save_db()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim db As Worksheet
Dim db_file As Workbook

Set db = ThisWorkbook.Worksheets("Datenbank")

Set db_file = Workbooks.Add

db.UsedRange.Copy
db_file.Sheets(1).Range("A1").PasteSpecial xlValues
db_file.Sheets(1).Range("A1").PasteSpecial xlFormats

db_name = "DB_" & CStr(Date) & ".xlsx"

db_file.SaveAs ("User\DB_Achieve\" & db_name)
db_file.Close


Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub