☰

如何使用 VBA 将 MS Excel 文件页面大小从信函页面大小批量转换为法律页面大小

tag-icon • tag-icon microsoft-excel vba
如何使用 VBA 将 MS Excel 文件页面大小从信函页面大小批量转换为法律页面大小

我在一个文件夹中有 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

相关内容