Question

我使用宏来创建每日报告。宏在历史上将xls报告保存为xls。由于文件较大，我想将报告保存为xlsb。两个问题。我正在使用的宏脚本将运行，但我以后无法打开xlsb文件。收到的消息是

＆＃34; Excel无法打开文件＆＃39; RDN活动报告.xlsb＆＃39;因为文件格式或文件扩展名无效。验证文件是否已损坏，以及文件扩展名是否与文件格式匹配。

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")

注意：我还需要一个脚本，当文件名在文件名中有日期时，可以打开文件，文件日期是昨天的日期，例如＆＃34; RDN Activity Report.20150726＆＃34; < / p>

Answer 1

使用SaveAs参数FileFormat：

50 = xlExcel12（2007年至2013年的Excel二进制工作簿，有或没有宏，＆＃39; s， 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

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

1 个答案: