VBA运行时错误1004：对象'_global'的方法'Range'

Question

我需要从文件rightemails.csv中正在开会的list.xlsm行中删除。

我有一个脚本：

Sub DelRows()
Dim ra As Range, delra As Range
Dim Arr() As Variant
    Application.ScreenUpdating = False    
    Arr = Range("[wrongemails.csv]wrongemails!$A$1:[wrongemails.csv]wrongemails!$A$4000")
     For Each ra In ActiveSheet.UsedRange.Rows
        For Each word In Arr
        If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then            
           If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
        Next word
    Next
    If Not delra Is Nothing Then delra.EntireRow.Delete

End Sub

但是，当我尝试使用它时，出现运行时错误1004：

**Method 'Range' of object'_global'** 

排队

Arr = Range("[wrongemails.csv]wrongemails!$A$1:[wrongemails.csv]wrongemails!$A$4000")

文件list.xlsm和wrongemails.csv位于同一文件夹中。

我的脚本怎么了？

Answer 1

代替

Arr = Range("[wrongemails.csv]wrongemails!$A$1:[wrongemails.csv]wrongemails!$A$4000")

采用：

 ThisWorkbook.Worksheets("Sheet1").Range("[wrongemails.csv]wrongemails!$A$1:[wrongemails.csv]wrongemails!$A$4000")

将Sheet1更改为“ Sheet1”的实际名称