錯誤91 - 對象未設置

Question

這是有關錯誤91的發佈#12772920的延續。好的，這裏是情況。 （1）如果這行被註釋掉，則（2）產生錯誤91.如果沒有註釋掉，代碼運行正常。 （3）這應該指向公衆對象公司到「公司」表，不是嗎？我很困惑，爲什麼這條線似乎並不像（1）那樣設置shCompanies對象。

Option Explicit 
Public wbCode As Workbook 

Public Sub Main() 
    Dim tables As New CTables 
    Set wbCode = ThisWorkbook 
    Call SetExcelObjects 
    (2)Call tables.Indexing 
End Sub 

Public Sub SetExcelObjects() 
    Dim tables As New CTables 
    (3)Set tables.shCompanies = wbCode.Worksheets("Companies") 
End Sub 


---Class Module CTables 
Option Explicit 
Public shCompanies As Worksheet 

Public Sub Indexing() 
    Dim rng As Long 
    Dim tables As New CTables 
    (1)Set tables.shCompanies = wbCode.Worksheets("Companies") 
    rng = tables.shCompanies.UsedRange.Rows.Count 
End Sub 

Answer 1

需要聲明tables作爲CTables公共實例。然後，您可以從不同的模塊採取行動。重新聲明它，就像你一直在做的那樣，「清理板岩」並導致你所看到的錯誤。你當然不想在CTables中聲明一個表的實例。

請注意，最佳做法是將實例化表從其聲明中分離出來，因此行Set tables = New CTables在Main中。

下面爲我編譯和運行。我認爲它你所期望的：

Public wbCode As Workbook 
Public tables As New CTables 

Public Sub Main() 
Set tables = New CTables 
Set wbCode = ThisWorkbook 
Call SetExcelObjects 
Call tables.Indexing 
End Sub 

Public Sub SetExcelObjects() 
Set tables.shCompanies = wbCode.Worksheets("Companies") 
End Sub 

    'Class CTables 
Public shCompanies As Worksheet 

Public Sub Indexing() 
    Dim rng As Long 
    rng = shCompanies.UsedRange.Rows.Count 
End Sub