Недавно я обнаружил преимущества преобразования документов Excel в XLSB (двоичные файлы), в основном это сокращение почти на половину размеров файлов.

Я хотел бы применить это к некоторым из моих старых файлов, но не хочу сидеть сложа руки, сохраняя эти документы.

Этот макрос должен иметь возможность поиска по всему диску C:\, найти только файлы XLSX, открыть его и сохранить в формате файла .xlsb в той же папке с тем же именем, также сохранив исходный файл .xlsx.

С уважением

1 ответ1

0
Sub Savesheet()
'
' Save Macro
' Save to Server
'
Dim strPath As String
Dim strFileNm As String
strPath = "H:/"
' get file name from worksheet Sheet1 cell C2
strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

    ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
               FileFormat:=xlExcel52

End Sub

также обновите вышеупомянутый макрос согласно этому:

I believe the correct parameters look like this,

.SaveAs Filename:=strFileNm, FileFormat:=50   'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)

обратитесь к этой странице

Я погуглил и нашел вышеуказанную ссылку, где это было дано. Никаких гарантий или устранения неполадок с моей стороны.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .