类型不匹配，同时通过Excel的分类文件

Question

我收到此错误：

Type mismatch: 'objExcel.Cells(...).Value'

在运行此程序：

Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
Set objWorkbook = objExcel.Workbooks.Open("myFile.xlsx") 

strMach = "string1,string2,string3" 
arrMach = Split(strMach, ",") 

for j = 0 to Ubound(arrMach) 
    remove(arrMach(j)) 
Next 

Function remove(strValue) 
    i = 1 
    removeCounter = 0 

    Do Until objExcel.Cells(i, 2).Value = "" 
    If objExcel.Cells(i, 2).Value = strValue Then 
     Set objRange = objExcel.Cells(i, 2).EntireRow 
     objRange.Delete 
     i = i - 1 
     removeCounter = removeCounter + 1 
    End If 

    i = i + 1 
    Loop 

    wscript.echo strValue & " - REMOVED!" 
    wscript.echo "Removed " & removeCounter & " results." 
End Function 

程序用来搜索所有现有行的字符串，如果找到，整行将被删除。

错误似乎来自行：

Do Until objExcel.Cells(i, 2).Value = "" 

我试图测试这个在Excel与大约50行的文件，它工作正常。但是，一旦我在大约25,000行的excel文件上使用它，我总会得到错误。谁能帮忙？在运行时文件的大小是否会影响我的代码？

谢谢。

编辑： 我曾试过这在一个50,000+行excel表进行测试，它工作正常。但是，每当我在实际文件上使用它时，仍会出现相同的错误。是否有任何特殊字符/值我应该知道哪些不能由上面的代码正确处理？再次感谢。

Answer 1

当您检查的单元格包含错误时可能会出现类似的错误，例如，因为由于删除的行导致引用丢失。

添加一些调试代码，以确定罪魁祸首：

On Error Resume Next 
Do Until objExcel.Cells(i, 2).Value = "" 
    If Err Then Exit Do 
    If objExcel.Cells(i, 2).Value = strValue Then 
    Set objRange = objExcel.Cells(i, 2).EntireRow 
    objRange.Delete 
    i = i - 1 
    removeCounter = removeCounter + 1 
    End If 

    i = i + 1 
Loop 

If Err Then 
    WScript.Echo "Error " & Err.Number & " in row "& i & ": " & Err.Description 
    WScript.Echo "Value is: " & objExcel.Cells(i, 2).Value 
End If 
On Error Goto 0