☰

将 xlsx 转换为 xlsb

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2007 macros spreadsheet
将 xlsx 转换为 xlsb

我最近发现将 Excel 文档转换为 XLSB（二进制）的好处，主要是文件大小几乎减少了一半。

我想将其应用到我的一些旧文件，但不想坐下来重新保存这些文档。

该宏应该能够搜索整个 C:\ 驱动器，仅找到 XLSX 文件，打开它并以 .xlsb 文件格式将其保存在同一文件夹中，并使用相同的名称，同时保留原始 .xlsx 文件。

问候

答案1

Sub Savesheet()
'
' Save Macro
' Save to Server
'
Dim strPath As String
Dim strFileNm As String
strPath = "H:/"
' get file name from worksheet Sheet1 cell C2
strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

    ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
               FileFormat:=xlExcel52

End Sub

另外，根据以下内容更新上述宏：

I believe the correct parameters look like this,

.SaveAs Filename:=strFileNm, FileFormat:=50   'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)

参考此页面

我谷歌了一下，找到了上面的链接。我无法保证或解决问题。

相关内容