ListObject Stringを返す

Question

関数からListObjectを返すが、暗黙的に文字列に変換するようだ。私は混乱しています。誰かが間違っていることを指摘できますか？

Sub TestMyFunction() 
    Dim MyTable As ListObject 
    Set MyTable = RangeToTable 
    Debug.Print MyTable '---MyTable = "Table1" 
    MyTable.Unlist 
End Sub 

Private Function RangeToTable() As ListObject 
    Dim wks As Worksheet 
    Set wks = ActiveWorkbook.Worksheets(sREPORT_DATA_1) 

    Dim rngTable As Range 
    Set rngTable = wks.Range("A1").CurrentRegion 

    Set RangeToTable = wks.ListObjects.Add(xlSrcRange, rngTable, , xlYes) 
End Function 

Answer 1

wks.ListObjects.Add（xlSrcRange、rngTable、、xlYes）のListObjectはコレクションです。コレクションアイテムには、名前と値の2つのプロパティがあります。この場合、rngTableに名前を割り当てていないので、名前は "Table1"です。 .Addが実行されると、追加されるコレクション項目には "Table1"の名前が与えられ、値はメモリ内のrngTable構造のアドレスです。

コレクションアイテムであるDebug.Print MyTableを実行すると、コレクションアイテムの既定のプロパティである「Table1」が印刷されます。

Sub TestMyFunction() 
    Dim MyLO As ListObject 
    Set MyLO = RangeToTable 
    Debug.Print MyLO '---MyLO = "Table1" 
    MyLO.Unlist 
End Sub 

Private Function RangeToTable() As ListObject 
    Dim wks As Worksheet 
    Set wks = ActiveWorkbook.Worksheets(sREPORT_DATA_1) 

    Dim rngTable As Range 
    Set rngTable = wks.Range("A1").CurrentRegion 

    Set RangeToTable = wks.ListObjects.Add(xlSrcRange, rngTable, , xlYes) 
End Function 

次のリンクをクリックするとクリアされる場合があります。 How do I reference tables in Excel vba?