|
Sub 文件列表()
Dim Fso As Object, File As Object
Set D = CreateObject("scripting.dictionary")
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each File In Fso.GetFolder("E:\批量打印区域").Files
If File.Name Like "*.*xls*" Then D(File.Name) = ""
Next
Range("A1").Resize(D.Count, 1) = WorksheetFunction.Transpose(D.Keys)
Application.ScreenUpdating = True
End Sub
Sub 批量设置打印区域()
Application.ScreenUpdating = False
Dim Fso As Object, File As Object
Set D = CreateObject("scripting.dictionary")
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each File In Fso.GetFolder("E:\批量打印区域").Files
If File.Name Like "*.*xls*" Then
Workbooks.Open Filename:="E:\批量打印区域\" & File.Name
ActiveWorkbook.Worksheets("表1").PageSetup.PrintArea = "$A$1:$C$1" '设置打印区域
'表3可以自行添加,跟上面一句一样的方法
ActiveWorkbook.Close savechanges:=True '关闭工作薄,并保存修改
End If
Next
Application.ScreenUpdating = True
End Sub
每次更改都得编辑,想弄成在表格里更改的,谢谢了。
|
|