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