做審計底稿的時候，需要把這個表粘貼很多遍，太麻煩了，所以我想利用vba批量完成這個操作。我是從批量打印里獲得的靈感。首先給大家看一下

張翰博?www.zhihu.com

寫的批量打印的內容

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

來自 <https://zhuanlan.zhihu.com/p/55800879>

作者： 張翰博

我對他的代碼進行了修改，實現批量寫入審計底稿的表頭信息設定頁面。

下面是我修改后的代碼

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

總結

以上是生活随笔為你收集整理的获取extjs 选择后的表头_批量写入审计底稿的表头信息设定页面的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。