批量修改多個(gè)工作簿

1、批量修改多個(gè)工作簿復(fù)制鏈接發(fā)表于2011-10-26 15:48:04|只看該作者|倒序?yàn)g覽批量修改多個(gè)工作簿可同時(shí)對(duì)許多工作簿同時(shí)進(jìn)行修改。有時(shí)，我們有許多相同格式的數(shù)據(jù)文件，如果需要對(duì)這些數(shù)據(jù)文件進(jìn)行相同格式或內(nèi)容的修改，這時(shí)，如果一個(gè)一個(gè)打開工作簿再修改的話，那么操作起來即費(fèi)時(shí)，又容易出錯(cuò)。我們可以使用 VBA來解決批量修改多個(gè)工作簿的問題。什么？我不懂 VBA其實(shí)不難，不懂 VBA也沒關(guān) 系。如果你不懂 VBA那么只要仔細(xì)看，只有一個(gè)地方是需要你自己改的。其它的只管照抄就行了。開 始吧！那么如何批量修改多個(gè)工作簿呢？我們整理這樣的思路：1、能不能讓Excel自動(dòng)打開每一個(gè)工作簿，修改完

2、成后，再關(guān)閉保存？2、Excel如何知道我要修改的這些工作簿和修改內(nèi)容呢？3、是同時(shí)打開這些工作簿修改呢；還是一次打開一個(gè)工作簿后，在每一個(gè)工作表中修改保存，然后再 打開別一個(gè)修改保存？下面我們提供這樣一種批量修改多個(gè)工作簿的辦法：1、一次提供給Excel所有要修改的工作簿2、每次打開一個(gè)工作簿后，在每一個(gè)工作表中修改后保存關(guān)閉，再打開另一個(gè)修改，直至批量修改所 有指定的多個(gè)工作簿。批量修改多個(gè)工作簿的操作步驟如下：1、 打開VBE代碼編輯器，打開的方法參照這兩個(gè)頁(yè)面的介紹Excel2003打開代碼編輯器、Excel2007 打開代碼編輯器2、在右側(cè)的窗口中輸入：1. Public strPa

3、th(1000) As Stri ng2. Public strBookName(1000) As Stri ng復(fù)制代碼這兩個(gè)數(shù)組用來保存要批量修改多個(gè)工作簿的路徑和文件名稱，因?yàn)槲覀冊(cè)诤竺嬉玫?，所以采?Public關(guān)鍵字，定義公用變量。3、接著在右側(cè)的窗口中輸入：1. Public Fu nction Ope nExcelFile (n FileNum As In teger) As Stri ng2. ? ? Dim nCou nt As In teger3. ? ? For nCou nt = 1 To nFileNum4. ? ? ?strPath( nCou nt) = App

4、licatio n.GetOpe nFile name(fileFilter:="MicrosoftExcel(*.xls), *.xls,Microsoft Excel(*.xlsx), *.xlsx")5. ? ? ? ? ?If strPath( nCou nt) = "False" The n6.? ? ? ? ? ? MsgBox "Excel文件錯(cuò)誤", vbCritical7.? ? ? ? ? ? Exit Fun ction8.? ? ? ? ?End If9.? ? ?Workbooks.Open File nam

5、e:=strPath( nCou nt), UpdateLi nks:=0.ReadO nly:=False10.? ? ?strBookName( nCou nt)=ActiveWorkbook.Name11.? ? Next nCou nt12.End Function復(fù)制代碼這個(gè)函數(shù)用來循環(huán)打開指定的Excel文件。4、接著在右側(cè)的窗口中輸入：1. Sub ModifyFiles()2. ? ? Dim vFileNum As Varia nt3. ? ? vFileNum = Trim(InputBox("請(qǐng)輸入打開文件的數(shù)量(1-1000)：")4. ? ? ?l

6、f vFileNum < 1 Or vFileNum > 1000 Then5. ? ? ? ? ?MsgBox " 數(shù)量錯(cuò)誤", vbCritical6. ? ? ? ? ?Exit Sub7. ? ? ?E nd If8. ? ? Ope nExcelFile (vFileNum)9. ? ? Dim n Cou ntFile As In teger10. ? ? For nCountFile = 1 To vFileNum11. ? ? ?lf strPath(nCountFile) = "False" Then12. ? ? ? ?

7、?Exit Sub13. ? ? ?End If14. ? ? Next nCountFile15. ? ? Application.DisplayAlerts = False16. ? ? For nCountFile = 1 To vFileNum17. ? ? ?Workbooks(strBookName(nCountFile).Activate18. ? ? ? ? ?Dim sht As Worksheet19. ? ? ? ? ?For Each sht In Worksheets20. ? ? ? ? ? ?'更改這一行代碼在所有的工作表內(nèi)修改。21. ? ? ? ? ?

8、 ? sht.A1 = 122. ? ? ? ? ?Next23. ? ? ?Workbooks(strBookName(nCountFile).CIose True24. ? ? Next nCountFile25. ? ? Application.DisplayAlerts = True26. ? ? MsgBox "完成！ ", vbInformation27. End Sub復(fù)制代碼然后再打開這個(gè)函數(shù)用來批量修改多個(gè)工作簿，一次打開一個(gè)工作簿后，在每一個(gè)工作表中修改保存、別一個(gè)修改保存，直至批量修改所有指定的多個(gè)工作簿，完成后提示。其中上面代碼的第 23行：1. s

9、ht.A1 = 1復(fù)制代碼即是修改的代碼，這個(gè)代碼的意思是A1單元格的值是1。其它的代碼都不需要管，只需要把你要在每個(gè)工作簿的工作表中修改的內(nèi)容，替換掉這個(gè)代碼即可。比如B1單元格的內(nèi)容是"Excel伙伴天下”，可以改成這樣：1. sht.B1 = "Excel伙伴天下”復(fù)制代碼那么所有的工作簿中工作表的B1單元格的內(nèi)容就被批量修改為“ Excel伙伴天下”。5、 將光標(biāo)定位在你已經(jīng)替換好的要批量修改多個(gè)工作簿的代碼處，按F5鍵，運(yùn)行程序。Excel提示你要一次修改多少個(gè)文件，然后依次打開這些文件，如果你打開的文件數(shù)量和輸入的數(shù)量相等，Excel就開始批量修改多個(gè)工作簿；否則 Excel退出，什么也不做。6、 批量修改多個(gè)工作簿完成后，Excel給出完成提示，指定的文件即完成指量修改。注意：代碼中的漢字如果復(fù)制到VBA代碼編輯器中是亂碼，那么在對(duì)應(yīng)代碼處手工輸入中文，這樣在代碼運(yùn)行時(shí)，你可以看到Excel給出的提示。批量修改多個(gè)工作簿的問題關(guān)于上面批量修改多個(gè)工作簿代碼，如果我要一次修改1000文件，我不是要打開1000次文件，這也是挺累人的？另外，如果我要修改的文件超過1000個(gè)呢？還有，從C5:C1