ActiveX 组件无法创建对象 - 429

Question

我有以下代码，但收到以下错误。我不确定发生了什么变化，但这在远程系统升级之前工作正常。下面是代码。你能有人帮忙修复吗？

Sub Import()
Dim RW1 As Worksheet
Set RW1 = Thisworkbook.Sheets("T_M") - this is where error occurs.
End Sub

错误 - ActiveX 组件无法创建对象

Answer 1

你的代码和问题对我来说没有意义，你的Sub例程没有名字或End。它应该看起来像这样：

Sub MySubname()
Dim RW1 As Worksheet
Set RW1 = ThisWorkbook.Sheets("T_M") ' this is where error occurs.
End Sub

您收到的错误也与代码不匹配，如果您有一个名为"T_M"的工作表，这将正常工作。如果你不这样做，那么你会收到一个subscript错误。如果您的工作表不是工作表，则会收到类型不匹配错误。