office交流網(wǎng)--QQ交流群號

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

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

2020-12-26 08:00:00
tmtony8
原創(chuàng)
6287

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


    分享
    文章分類
    聯(lián)系我們
    聯(lián)系人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問