Question

我有一行代码显示应用程序定义或对象定义错误，我不知道为什么。

filenm17 = "DSR Consolidated"
findstring16 = "21"

filenm17和findstring16都定义为字符串。我尝试删除findstring16并用公式替换它来获取findstring16（它是一个单元格引用.value）但是仍然没有用。

Workbooks(filenm17).Sheets("5").Range(Cells(67, findstring16 + 2), _
                               Cells(440, findstring16 + 2)) = firstarray

请帮忙！

Answer 1

如果没有符合条件的工作表，您的Cells()会引用活动表：如果不是＆＃34;＆＃34; 5＆＃34;那么他们就不会与Range()匹配，这会触发你得到的错误。

尝试：

With Workbooks(filenm17).Sheets("5")
    .Range(.Cells(67, CLng(findstring16) + 2), _
           .Cells(440, CLng(findstring16) + 2)).Value = firstarray
End With

应用程序定义或对象定义错误 - Excel VBA .range（单元格

1 个答案: