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錯誤。 如果您的工作表不是工作表，則會出現類型不匹配錯誤。