需要使用VBA將xls工作簿另存為xlsb

Question

我使用宏來創建每日報告。 宏將xls報告保存為xls歷史記錄。 由於文件太大，我想將報告另存為xlsb。 兩個問題。 我正在使用的宏腳本將運行，但以后無法打開xlsb文件。 收到的消息是

“ Excel無法打開文件'RDN Activity Report.xlsb'，因為文件格式或文件擴展名無效。請驗證文件未損壞，並且文件擴展名與文件格式匹配。

txtFileName = Format(Date - 1, "yyyymmdd")
ActiveWorkbook.SaveAs Filename:= _
    "\\Clt-stor01a\CA_Services\RDN Reports\ForUploadPrev\RDN Activity Report." & txtFileName & ".xlsb", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    txtFileName = Format(Date - 1, "yyyymmdd")

注意：我還需要一個腳本，當文件名中包含文件名且日期為昨天的日期時，可以打開文件，例如“ RDN Activity Report.20150726 ”

Answer 1

使用SaveAs參數FileFormat ：

• 50 = xlExcel12 （2007-2013年的Excel二進制工作簿，帶或不帶宏，xlsb）

• 51 = xlOpenXMLWorkbook （不含2007-2013年的宏，xlsx）

• 52 = xlOpenXMLWorkbookMacroEnabled （在2007-2013年帶有或不帶有宏，xlsm）

• 56 = xlExcel8 （Excel 2007-2013中的97-2003格式，xls）

   ActiveWorkbook.SaveAs "C:\\temp\\text.xlsb", fileformat:=50