Необходимо сохранить книгу xls Как xlsb с VBA

Question

Необходимо сохранить книгу xls Как xlsb с VBA

Я использую макрос для создания ежедневного отчета. Макрос сохраняет отчет 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"

13

excel vba excel-vba

Источник

user5160737 27 июл '15 в 13:33

1 ответ

Другие вопросы по тегам excel vba excel-vba

user5073840 27 июл '15 в 13:51 2015-07-27 13:51 · Answer 1 · 2015-07-27 13:51

Использование SaveAs параметр FileFormat:

50 знак равно xlExcel12 (Excel Binary Workbook в 2007-2013 гг. С макросами или без них, xlsb)
51 знак равно xlOpenXMLWorkbook (без макросов в 2007-2013 гг., xlsx)
52 знак равно xlOpenXMLWorkbookMacroEnabled (с макросами или без в 2007-2013 гг., xlsm)
56 знак равно xlExcel8 (Формат 97-2003 в Excel 2007-2013, xls)
```
ActiveWorkbook.SaveAs "C:\temp\text.xlsb", fileformat:=50
```