[已解决]总是出现下标越界，不知道怎么修改，请大神们帮忙看看

柒分壊

Sub 批量删除数据()
ipath = ThisWorkbook.Path & "\"
myFile = Dir(ipath & "*.xls*")
Application.ScreenUpdating = False
Do While myFile <> ""
    If myFile <> ThisWorkbook.Name Then
        Workbooks.Open ipath & myFile
        表名 = ActiveWorkbook.Sheets("Sheet1").Range("A2")
        区域 = ActiveWorkbook.Sheets("Sheet1").Range("B2")
        ActiveWorkbook.Sheets(表名).Range(区域).Clear
        ActiveWorkbook.Close True
    End If
    myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

请大神给修改一下，谢谢了

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-14 02:11

Sub demo()
   Application.ScreenUpdating = False
   Path = ThisWorkbook.Path & "\"
   file = Dir(Path & "*.xls")
   sh = [a2]: Rng = [b2]
   Do While file <> ""
      If file <> ThisWorkbook.Name Then
        Workbooks.Open Path & file
        Sheets(sh).Range(Rng).Clear
        ActiveWorkbook.Close 1
      End If
      file = Dir
   Loop
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   Application.ScreenUpdating = False
   Path = ThisWorkbook.Path & "\"
   file = Dir(Path & "*.xls")
   sh = [a2]: Rng = [b2]
   Do While file <> ""
      If file <> ThisWorkbook.Name Then
        Workbooks.Open Path & file
        Sheets(sh).Range(Rng).Clear
        ActiveWorkbook.Close 1
      End If
      file = Dir
   Loop
End Sub

祝順心，南無阿彌陀佛！

zjdh

Sub &#197;úá&#191;é&#190;3yêy&#190;Y()
    ipath = ThisWorkbook.Path & "\"
    myFile = Dir(ipath & "*.xls*")
    Application.ScreenUpdating = False
    表名 = ActiveWorkbook.Sheets("Sheet1").Range("A2")
    区域 = ActiveWorkbook.Sheets("Sheet1").Range("B2")
    Do While myFile <> ""
        If myFile <> ThisWorkbook.Name Then
            Workbooks.Open ipath & myFile
            ActiveWorkbook.Sheets(表名).Range(区域).ClearContents
            ActiveWorkbook.Close True
        End If
        myFile = Dir
    Loop
    Application.ScreenUpdating = True
End Sub