ActiveX 组件无法创建 object - 429

Question

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

Sub Import()

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

End Sub

错误 - ActiveX 组件无法创建 object

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错误。 如果您的工作表不是工作表，则会出现类型不匹配错误。