Я пытаюсь преобразовать много старых файлов .xls в формат .xlsx И одновременно изменить настройки ppi. Возможно ли это с помощью какого-либо скрипта или макроса? Изменение ppi в рабочей книге, полной картинок, с 220ppi на 96ppi уменьшает размер.
Я нашел эту страницу, но мне интересно, действительно ли она все еще действительна для компонентов Office 2013/2016 и как обновить ее с возможными изменениями ppi.
Ниже приведена ошибка компиляции с указанием «Определяемый пользователем тип не определен», где написано Dim FSO As Scripting.FileSystemObject
Option Explicit
' Convert all xls files in selected folder to xlsx
Sub convertXLStoXLSX()
Dim FSO As Scripting.FileSystemObject
Dim strConversionPath As String
Dim fFile As File
Dim fFolder As Folder
Dim wkbConvert As Workbook
' Open dialog and select folder
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
strConversionPath = .SelectedItems(1)
End With
Set FSO = New Scripting.FileSystemObject
' Check if the folder exists
If FSO.FolderExists(strConversionPath) Then
Set fFolder = FSO.GetFolder(strConversionPath)
' Loop through files, find the .xls files
For Each fFile In fFolder.Files
If Right(fFile.Name, 4) = ".xls" Or Right(fFile.Name, 4) = ".XLS" Then
Application.DisplayAlerts = False
Set wkbConvert = Workbooks.Open(fFile.Path)
' Save as XML workbook - if file contains macros change FileFormat:=52
wkbConvert.SaveAs FSO.BuildPath(fFile.ParentFolder, Left(fFile.Name, Len(fFile.Name) - 4)) & ".xlsx", FileFormat:=51
wkbConvert.Close SaveChanges:=False
' Delete original file
fFile.Delete Force:=True
Application.DisplayAlerts = True
End If
Next fFile
End If
End Sub