如何将具有多个表的HTML文档链接到MS Access数据库

Question

我的目的是将* .html文档链接到MS Access数据库，并将其导出到* .XLS文件。 问题是我的* .html文件包含50多个相似的表。

如果我使用“链接HTML向导”，它看起来像

在这里，我可以从html文档中选择要链接的特定表格。 但是每次我有不同的html文件时，表的数量从50到100不等。表的结构是相同的。 而且我不确定最好的方法是手动将100个表链接到数据库。 另外，我可以在“链接表管理器”中看到链接表的路径：

我编写了一些VBA代码以将每个表连接到数据库：

Set MyDB = CurrentDb()
i = 0
For i = 1 To 100

Set MyTable = MyDB.TableDefs("ZVPL")

MyTable.Connect = ";Database=" & MYc_Path_HTML & "\" & "ZVPL.htm" & "\" & "Report output" & i
MyTable.RefreshLink
Call ExportToXLS("ZVPL") 'function that allows to export my table to XLS
i = i+1
Next

但这是行不通的。 错误为“找不到文件... \\ Report output1”。 我也检查过，路径正确。 从* .html文档提取所有表的最佳方法是什么？

Answer 1

通过添加如下连接字符串来解决该问题：

Set MyDB = CurrentDb()

i = 0
For i = 1 To 100
  Set MyTable = MyDB.CreateTableDef("ZVPL")
  MyTable.SourceTableName = "Report output" & i
  MyTable.Connect = "HTML Import;DSN=ZVPL Link Specification1;HDR=NO;IMEX=3;CharacterSet=65001;Database=" & MYc_Path_ZVPLHTM & "ZVPL.htm"
  MyDB.TableDefs.Append MyTable
  MyDB.TableDefs.Refresh
  Call ExportToXLS("ZVPL") 'Export to Excel
  DoCmd.SetWarnings False
  MyDB.Execute "DROP TABLE " & "ZVPL"
  DoCmd.SetWarnings True
Next