office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

在access中导入HTML文件

2020-12-26 08:00:00
tmtony8
原创
92

作为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


    分享