在access中導(dǎo)入HTML文件

作為office的組件，access和word，Excel這些交互是很簡單。

當(dāng)然了，單純與office其他組件互相導(dǎo)入導(dǎo)出顯然是不夠的。這里我們學(xué)習(xí)一下用vba代碼導(dǎo)入HTML文件

Private Sub ImportHTML_Click()
    Dim Dlg As Office.FileDialog
    Dim htmlPath As String
    Set Dlg = Application.FileDialog(msoFileDialogOpen)
    With Dlg
        .Title = "請選擇導(dǎo)入的HTML文件"
        .Filters.Clear
        .Filters.Add "HTML文件", "*.html"
        .Show
    End With    
    htmlPath = Dlg.SelectedItems.Item(1)
    '將選擇的HTML文件導(dǎo)入
    DoCmd.TransferText acImportHTML, , " HTML表", htmlPath, 1
End Sub