在MS Acccess中使用IE对象获取类中的表

Function GetTablesFromIE() As Collection
    Dim ie As Object
    Dim tables As Collection
    
    Set ie = CreateObject("InternetExplorer.Application")
    Set tables = New Collection
    
    ' 在这里执行与IE对象交互的代码，例如导航到特定的网页
    
    ' 使用ie对象获取表格
    ' 例如，可以使用以下代码获取网页中的所有表格：
    ' For Each tbl In ie.Document.getElementsByTagName("table")
    '     tables.Add tbl
    ' Next tbl
    
    ' 返回表格集合
    Set GetTablesFromIE = tables
    
    ' 关闭IE对象
    ie.Quit
    Set ie = Nothing
End Function

Sub TestGetTablesFromIE()
    Dim tables As Collection
    Dim tbl As Object
    
    Set tables = GetTablesFromIE()
    
    ' 遍历表格集合并进行处理
    For Each tbl In tables
        ' 在这里执行对表格的处理操作
    Next tbl
End Sub