![将 xlsx 转换为 xlsb](https://linux22.com/image/1581868/%E5%B0%86%20xlsx%20%E8%BD%AC%E6%8D%A2%E4%B8%BA%20xlsb.png)
我最近发现将 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)
我谷歌了一下,找到了上面的链接。我无法保证或解决问题。