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 Then
        Set AK = Workbooks.Open(myPath & myFile) '開啟符合要求的檔案
            If IsEmpty(Cells(3, 1)) Then
            Rows("1:3").Select
            Selection.Delete Shift:=xlUp
            End If
        End If
    AK.Close SaveChanges:=True '這裡可以選擇引數是否儲存，你也可以刪除這行程式碼，手動關閉檔案
    myFile = Dir '找尋下一個*.xls檔案
Loop
Application.ScreenUpdating = True '解除凍結螢幕,此類語句一般成對使用
End Sub