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

2、自動打開每一個工作簿，修改完成后，再關閉保存2、Excel 如何知道我要修改的這些工作簿和修改內容呢3、是同時打開這些工作簿修改呢；還是一次打開一個工作簿后，在每一個工作表中修 改保存，然后再打開別一個修改保存面我們提供這樣一種批量修改多個工作簿的辦法：1、一次提供給 Excel 所有要修改的工作簿2、每次打開一個工作簿后，在每一個工作表中修改后保存關閉，再打開另一個修改，直 至批量修改所有指定的多個工作簿。批量修改多個工作簿的操作步驟如下：Excel2003 打開代碼編輯器 、因為我們在后面要用到，1、打開 VBE代碼編輯器， 打開的方法參照這兩個頁面的介紹 Excel2007 打開代碼編輯

3、器2、在右側的窗口中輸入：Public strPath(1000) As StringPublic strBookName(1000) As String 復制代碼 這兩個數組用來保存要批量修改多個工作簿的路徑和文件名稱， 所以采用 Public 關鍵字，定義公用變量。3、接著在右側的窗口中輸入：Public Function OpenExcelFile(nFileNum As Integer) As StringDim nCount As IntegerFor nCount = 1 To nFileNumstrPath(nCount) = (fileFilter:="Microso

4、ft Excel(*.xls), *.xls,Microsoft Excel(*.xlsx),*.xlsx")If strPath(nCount) = "False" ThenMsgBox "Excel 文件錯誤 ", vbCriticalExit FunctionEnd IfFilename:=strPath(nCount), UpdateLinks:=0, ReadOnly:=False strBookName(nCount) =Next nCountEnd Function 復制代碼 這個函數用來循環打開指定的 Excel 文件。4、接著

5、在右側的窗口中輸入：Sub ModifyFiles()Dim vFileNum As VariantvFileNum = Trim(InputBox(" 請輸入打開文件的數量( 1-1000 )： ")If vFileNum < 1 Or vFileNum > 1000 ThenMsgBox " 數量錯誤 ", vbCriticalExit SubEnd IfOpenExcelFile (vFileNum)Dim nCountFile As IntegerFor nCountFile = 1 To vFileNumIf strPath(nCo

6、untFile) = "False" ThenExit SubEnd IfNext nCountFile= FalseFor nCountFile = 1 To vFileNum Workbooks(strBookName(nCountFile).ActivateDim sht As WorksheetFor Each sht In Worksheets '更改這一行代碼在所有的工作表內修改。 sht.A1 = 1NextWorkbooks(strBookName(nCountFile).Close TrueNext nCountFile= TrueMsgBox &

7、quot;完成！ ", vbInformationEnd Sub 復制代碼 這個函數用來批量修改多個工作簿，一次打開一個工作簿后，在每一個工作表中修改保 存、然后再打開別一個修改保存，直至批量修改所有指定的多個工作簿，完成后提示。 其中上面代碼的第 23 行：sht.A1 = 1復制代碼 即是修改的代碼，這個代碼的意思是 A1 單元格的值是 1。 其它的代碼都不需要管，只需要把你要在每個工作簿的工作表中修改的內容，替換掉這 個代碼即可。比如 B1 單元格的內容是 “Exce伙l 伴天下 ”，可以改成這樣： sht.B1 = "Excel 伙伴天下 "復制代碼 那么

8、所有的工作簿中工作表的 B1 單元格的內容就被批量修改為 “Exce伙l 伴天下 ”。5、將 光標定位在你已經替換好的要批量修改多個工作簿的代碼處，按 F5鍵，運行程序。 Excel提示你要一次修改多少個文件，然后依次打開這些文件，如果你打開的文件數量和輸入 的數量相等， Excel就開始批量修改多個工作簿；否則 Excel 退出，什么也不做。 6、批量 修改多個工作簿完成后， Excel給出完成提示，指定的文件即完成指量修改。注意：代碼中的漢字如果復制到 VBA 代碼編輯器中是亂碼， 那么在對應代碼處手工輸入中文， 這樣 在代碼運行時，你可以看到 Excel 給出的提示。 批量修改多個工作簿的問題 關于上面批 量修改多個工作簿代碼，如果我要一次修改 1000 文件，我不是要打開 1000 次文件，這 也是挺累人的 另外，如果我要修改的文件超過 1000 個呢 還有，從 C5:C10 的單元格區 域要批量修改， 我一個一個寫么有沒