需要保存xls工作簿作为xlsb与VBA

我使用macros来创build每日报告。 macros将历史xls报告保存为xls。 由于文件较大,我想将报告保存为xlsb。 两个问题。 我正在使用的macros脚本将运行,但是我不能稍后打开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") 

注意:当文件名有文件名的date,文件的date是昨天的date,例如“ RDN Activity Report.20150726 ”时,我还需要一个可以打开文件的脚本。

使用SaveAs参数FileFormat

  • 50 = xlExcel12 (Excel 2007二进制工作簿在2007-2013有或没有macros,xlsb)

  • 51 = xlOpenXMLWorkbook (没有在2007 – 2013年的macros,xlsx)

  • 52 = xlOpenXMLWorkbookMacroEnabled (有或没有macros在2007 – 2013年,xlsm)

  • 56 = xlExcel8 (Excel 2007-2013中的97-2003格式,xls)

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