在access中导入HTML文件

作为office的组件，access和word，Excel这些交互是很简单。

当然了，单纯与office其他组件互相导入导出显然是不够的。这里我们学习一下用vba代码导入HTML文件

Private Sub ImportHTML_Click()
    Dim Dlg As Office.FileDialog
    Dim htmlPath As String
    Set Dlg = Application.FileDialog(msoFileDialogOpen)
    With Dlg
        .Title = "请选择导入的HTML文件"
        .Filters.Clear
        .Filters.Add "HTML文件", "*.html"
        .Show
    End With    
    htmlPath = Dlg.SelectedItems.Item(1)
    '将选择的HTML文件导入
    DoCmd.TransferText acImportHTML, , " HTML表", htmlPath, 1
End Sub