【项目实战】：Excel：VBA自动化更新数据表格

版权声明：转载请联系博主。 https://blog.csdn.net/sunyaowu315/article/details/82907522

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