需要使用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