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

張翰博?www.zhihu.com

寫的批量打印的內(nèi)容

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, "標(biāo)準(zhǔn)表") > 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

代碼超級(jí)詳解：

1sub過程名2關(guān)閉屏幕刷新提高運(yùn)行速度3彈出FileDialog對(duì)話框，提示用戶選擇文件夾作為路徑4如果選擇了文件夾，則返回參數(shù)-1，如果點(diǎn)取消則返回參數(shù)05End With6利用DIR函數(shù)取出路徑文件夾下的第一個(gè)工作簿，并賦值給變量f7只要能取出來工作簿名稱，就做循環(huán)，直到取出的文件名為空停止循環(huán)8打開工作簿9for each函數(shù)對(duì)打開的活動(dòng)工作簿中每個(gè)表格進(jìn)行循環(huán) 10如果工作表名稱中存在“標(biāo)準(zhǔn)表”字段，則進(jìn)行以下循環(huán) 11激活工作表，為下一步打印做準(zhǔn)備 12使用pagesetup對(duì)象對(duì)打印頁面進(jìn)行設(shè)置 13紙張大小為A4紙 14縮放比例為80% 15End With 16利用printout方法對(duì)打印過程進(jìn)行設(shè)置 17將表格打印到文件，全路徑是活動(dòng)工作簿的名字+工作表的名字+“.pdf” 18 End If 19 Next 20關(guān)閉當(dāng)前打開的工作簿，不保存 21再次使用Dir函數(shù)，獲取下一個(gè)工作簿，第二次使用可以直接寫成f=Dir，省略參數(shù) 22Loop 23開啟屏幕刷新 24MsgBox "完成" 25End Sub

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

作者： 張翰博

我對(duì)他的代碼進(jìn)行了修改，實(shí)現(xiàn)批量寫入審計(jì)底稿的表頭信息設(shè)定頁面。

下面是我修改后的代碼

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("表頭信息設(shè)定").Range("A1") = "Hello World" #這里是把hello world 寫進(jìn) A1,這里需要根據(jù)自己的需要調(diào)整，如果有好幾個(gè)空格要填就多寫幾句# 10 ActiveWorkbook.Save 11 ActiveWorkbook.Close False 12 f = Dir 13 Loop 14 Application.ScreenUpdating = True 15 MsgBox "完成" 16 End Sub

代碼超級(jí)詳解：

1sub過程名 2關(guān)閉屏幕刷新提高運(yùn)行速度 3彈出FileDialog對(duì)話框，提示用戶選擇文件夾作為路徑 4如果選擇了文件夾，則返回參數(shù)-1，如果點(diǎn)取消則返回參數(shù)0 5End With 6利用DIR函數(shù)取出路徑文件夾下的第一個(gè)工作簿，并賦值給變量f 7只要能取出來工作簿名稱，就做循環(huán)，直到取出的文件名為空停止循環(huán) 8打開工作簿 9把需要寫入的內(nèi)容寫進(jìn)相應(yīng)的位置 10保存修改11關(guān)閉工作簿12再次使用Dir函數(shù)，獲取下一個(gè)工作簿，第二次使用可以直接寫成f=Dir，省略參數(shù) 22Loop 13 循環(huán) 14開啟屏幕刷新 15彈出彈窗"完成" 16End Sub

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。