【博客地址】：https://blog.csdn.net/sunyaowu315
【博客大綱地址】：https://blog.csdn.net/sunyaowu315/article/details/82905347

---

??相互學習，共同成長。

VBA自動化更新數據表格

Sub 打開() Dim myPath$, myFile$, AK As Workbook Application.ScreenUpdating = False '凍結屏幕，以防屏幕抖動 myPath = "C:\Users\A3\Desktop\哈哈哈哈\" '在這里輸入你的路徑，即你存放工作簿的文件夾 myFile = Dir(myPath & "*.xls") '依次找尋指定路徑中的*.xls文件 Do While myFile <> "" '當指定路徑中有文件時進行循環If myFile <> ThisWorkbook.Name ThenSet AK = Workbooks.Open(myPath & myFile) '打開符合要求的文件If IsEmpty(Cells(3, 1)) ThenRows("1:3").SelectSelection.Delete Shift:=xlUpEnd IfEnd IfAK.Close SaveChanges:=True '這里可以選擇參數是否保存，你也可以刪除這行代碼，手動關閉文件myFile = Dir '找尋下一個*.xls文件 Loop Application.ScreenUpdating = True '解除凍結屏幕,此類語句一般成對使用 End Sub

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的【Excel】VBA自动化更新数据表格的全部內容，希望文章能夠幫你解決所遇到的問題。

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