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

---

??相互學(xué)習(xí)，共同成長(zhǎng)。

VBA自動(dòng)化更新數(shù)據(jù)表格

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

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

總結(jié)

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

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