在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