コードから作成されていないListObjectからデータを取得

Question

VSTOワークブックで Excelから作成されたListObjectからデータを取得したいとします。したがって、コード内にDataBindingのようなものはありません。もちろん、それがバインドされていない、残念ながら、ここでのDataSourceがnullである

var rows = ((DataTable)Globals.Feuil1.MyNamedListObject.DataSource).Rows 

：私がやりたい何

はそのようなものです。

Answer 1

私の提案は、名前でワークブックからListObjectを取得することです。以下の関数は、ListObjectを文字列名で返します。これは、渡された文字列と名前を比較するすべてのワークシートとそれぞれのListObjectを反復処理し、一致する場合はListObjectを返します。それが役に立てば幸い。宜しくお願いします。

' 
' Find a Table in the Workbook by its String name 
' 
Function GetTable(strTable As String) As ListObject 

    For Each WS In ActiveWorkbook.Worksheets 
     For Each tbl In WS.ListObjects 
      If tbl.Name = strTable Then 
       Set GetTable = tbl 
       On Error GoTo 0 
       Exit Function 
      End If 
     Next 
    Next 

    Set GetTable = Nothing 

End Function