VBA関数がHTMLElementCollectionオブジェクトを返さない

Question

関数からHTMLElementCollectionを返そうとしています。しかし、function-wiseはすべて動作する必要がありますが、コードが呼び出し側のサブプログラムに戻ると、関数出力 "myTable"に割り当てられた変数に "<変数がありません"と表示されます。私は、同じ結果を持つscripting.dictionaryの一部としてコレクションを戻してみました。

何か助けていただければ幸いです。皆さんありがとう。いくつかのテストの後

Sub updateReports() 
'//Function gathers latest report information and adds to sheets("Reports") 
'//URL 
Dim strURL As String 
    strURL = "http://www.ndbc.noaa.gov/station_page.php?station=62103" 

     Dim myTable As HTMLElementCollection 
     Set myTable = getTable(strURL) 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
     'From here on, "myTable" listed as '<No Variables>'. 
     'HTMLElementCollection not sucessfully returned. 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
End Sub 

Public Function getTable(strURL As String) As Variant 
'//Downloads HTML Table from strURL 
'//Create HTTP Object 
Dim oXMLHTTP As Object 
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0") 
     oXMLHTTP.Open "GET", strURL, False 
     oXMLHTTP.send 

Dim HTMLDoc As New HTMLDocument 
    If oXMLHTTP.Status = 200 Then 
     HTMLDoc.body.innerHTML = oXMLHTTP.responsetext 
     Set getTable = HTMLDoc.getElementsByTagName("tr")() 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
     'Under "getTable" call stack, getTable shows correct object (HTMLElementCollection) 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
    End If 
End Function 

Answer 1

、私は何が起こっているか、それを考え出したと思う...メインサブ（updateReports）でのHTMLDocumentを作成してみてくださいとするByRef引数を通じてgetTable関数に渡します。また、関数の戻り値の型をHTMLElementCollectionに変更します。次のようなものがあります：

Sub updateReports() 
'//Function gathers latest report information and adds to sheets("Reports") 
'//URL 
Dim strURL As String 
    strURL = "http://www.ndbc.noaa.gov/station_page.php?station=62103" 

     Dim myTable As HTMLElementCollection 
     Dim HTMLDoc As New HTMLDocument 

     Set myTable = getTable(strURL, HTMLDoc) 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
     'From here on, "myTable" listed as '<No Variables>'. 
     'HTMLElementCollection not sucessfully returned. 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
End Sub 

Public Function getTable(strURL As String, ByRef HTMLDoc As HTMLDocument) As HTMLElementCollection 
'//Downloads HTML Table from strURL 
'//Create HTTP Object 
Dim oXMLHTTP As Object 
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0") 
     oXMLHTTP.Open "GET", strURL, False 
     oXMLHTTP.send 

    If oXMLHTTP.Status = 200 Then 
     HTMLDoc.body.innerHTML = oXMLHTTP.responsetext 
     Set getTable = HTMLDoc.getElementsByTagName("tr")() 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
     'Under "getTable" call stack, getTable shows correct object (HTMLElementCollection) 
     '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
    End If 
End Function 

これがうまくいくかどうか教えてください！