我在一个文件夹中有 200 个 Excel 文件,文件扩展名为 .xls、.xlsx 和 .xlsm。它们都是以信纸大小输入的,我需要将它们全部转换为合法页面大小(横向)。有没有办法使用 VBA 一次转换所有文件的页面大小?这样我就不必打开每个文件并一次更改一个文件的页面大小了?谢谢。
答案1
我在 Youtube 上找到了一个视频,展示了“如何自动编辑文件夹中的多个 Excel 文件”-->来源:https://www.youtube.com/watch?v=gIIj5-267uI
我的文件名是zzz.xlsm
并能够编辑代码来改变页面大小:
Sub LoopThroughDirectorytoEditOriginal()
Dim MyFile As String
Dim Filepath As String
Dim q As Long
Filepath = "C:\TSS\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = "zzz.xlsm" Then
Exit Sub
End If
Workbooks.Open (Filepath & MyFile)
For q = 1 To Application.Worksheets.Count
Worksheets(q).Activate
ActiveSheet.PageSetup.PaperSize = xlPaperLegal
ActiveSheet.PageSetup.Orientation = xlLandscape
Next q
ActiveWorkbook.Save
ActiveWorkbook.Close
MyFile = Dir
Loop
End Sub