1Sub 批量打印()2Application.ScreenUpdating = False3    With Application.FileDialog(msoFileDialogFolderPicker)4        If .Show = -1 Then fl = .SelectedItems(1) & ""5    End With6    f = Dir(fl & "*.xls*")7    Do While f <> ""8        Workbooks.Open (fl & f)9        For Each sht In ActiveWorkbook.Worksheets
10            If InStr(1, sht.Name, "标准表") > 0 Then
11                sht.Select
12                With ActiveSheet.PageSetup
13                    .PaperSize = xlPaperA4
14                    .Zoom = 80
15                End With
16                ActiveWindow.SelectedSheets.PrintOut IgnorePrintAreas:=False, _
17                printtofile:=True, prtofilename:=fl & ActiveWorkbook.Name & sht.Name & ".pdf"
18            End If
19        Next
20        ActiveWorkbook.Close False
21        f = Dir
22    Loop
23    Application.ScreenUpdating = True
24    MsgBox "完成"
25End Sub

1sub过程名2关闭屏幕刷新提高运行速度3弹出FileDialog对话框，提示用户选择文件夹作为路径4如果选择了文件夹，则返回参数-1，如果点取消则返回参数05End With6利用DIR函数取出路径文件夹下的第一个工作簿，并赋值给变量f7只要能取出来工作簿名称，就做循环，直到取出的文件名为空停止循环8打开工作簿9for each函数对打开的活动工作簿中每个表格进行循环
10如果工作表名称中存在“标准表”字段，则进行以下循环
11激活工作表，为下一步打印做准备
12使用pagesetup对象对打印页面进行设置
13纸张大小为A4纸
14缩放比例为80%
15End With
16利用printout方法对打印过程进行设置
17将表格打印到文件，全路径是活动工作簿的名字+工作表的名字+“.pdf”
18   End If
19   Next
20关闭当前打开的工作簿，不保存
21再次使用Dir函数，获取下一个工作簿，第二次使用可以直接写成f=Dir，省略参数
22Loop
23开启屏幕刷新
24MsgBox "完成"
25End Sub

1  Sub 批量写入()
2  Application.ScreenUpdating = False
3  With Application.FileDialog(msoFileDialogFolderPicker)
4  If .Show = -1 Then fl = .SelectedItems(1) & ""
5  End With
6  f = Dir(fl & "*.xls*")
7  Do While f <> ""
8  Workbooks.Open (fl & f)
9  Sheets("表头信息设定").Range("A1") = "Hello World"
#这里是把hello world 写进 A1,这里需要根据自己的需要调整，如果有好几个空格要填就多写几句#
10  ActiveWorkbook.Save
11  ActiveWorkbook.Close False
12  f = Dir
13  Loop
14  Application.ScreenUpdating = True
15  MsgBox "完成"
16  End Sub

1sub过程名
2关闭屏幕刷新提高运行速度
3弹出FileDialog对话框，提示用户选择文件夹作为路径
4如果选择了文件夹，则返回参数-1，如果点取消则返回参数0 5End With 6利用DIR函数取出路径文件夹下的第一个工作簿，并赋值给变量f
7只要能取出来工作簿名称，就做循环，直到取出的文件名为空停止循环 8打开工作簿 9把需要写入的内容写进相应的位置
10保存修改11关闭工作簿12再次使用Dir函数，获取下一个工作簿，第二次使用可以直接写成f=Dir，省略参数 22Loop
13 循环
14开启屏幕刷新
15弹出弹窗"完成"
16End Sub