Sub 打開文件夾內所有Excel表格并修改() '打開文件夾內所有Excel表格并修改 ' ' 'Dim myPath$, myFile$, WB As Workbook '這個$是相當于定義字符串myPath = "E:\test\" '把文件路徑定義給變量，這里請自行更改，記得最后要加一個反斜杠myFile = Dir(myPath & "*.xls*") '依次找尋指定路徑中的*.x1s,或者x1sx文件Do While myFile <> "" '當指定路徑中有文件時進行循環If myFile <> ThisWorkbook.Name Then '如果我們這個宏文件在需要處理的文件夾之中，這個判斷就會跳過下面的操作Set WB = Workbooks.Open(myPath & myFile) '打開符合要求的文件'操作文件'MsgBox (myFile) '彈窗提示文件名，測試用，默認不顯示Dim i As LongFor i = 1 To Sheets.Count '盤點workbook中sheet的數量，下面選定sheet操作If i = 2 Then '操作第2個sheet'自動各列調整寬度Sheets(i).ActivateSheets(i).Columns("A:K").SelectSheets(i).Columns("A:K").EntireColumn.AutoFit'縮放把所有列打印到同一頁Sheets(i).PageSetup.Zoom = FalseSheets(i).PageSetup.FitToPagesWide = 1Sheets(i).PageSetup.FitToPagesTall = FalseEnd If '工作表操作結束If i = 3 Then '操作第3個sheet'同上自動各列調整寬度Sheets(i).ActivateSheets(i).Columns("A:M").SelectSheets(i).Columns("A:M").EntireColumn.AutoFit '調整寬度Sheets(i).PageSetup.Zoom = FalseSheets(i).PageSetup.FitToPagesWide = 1Sheets(i).PageSetup.FitToPagesTall = FalseEnd IfNext '循環結束'Range("B6").Select '需要修改的地方'ActiveCell.FormulaR1C1 = "需要修改的內容" '修改此位置的內容'ActiveWorkbook.Save 保存修改WB.Close 1 '保存文件直接關閉End IfmyFile = Dir '找尋下一個*.x15,或者x1sx文件LoopSet WB = Nothing '釋放變量內存End Sub

總結

以上是生活随笔為你收集整理的VBA打开文件夹所有EXCEL并按需操作的全部內容，希望文章能夠幫你解決所遇到的問題。

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