原   表:

导出结果:

代   码:

    Dim htmlPath As String
    '设置导出文件的路径
    htmlPath = CurrentProject.Path & "/" & txt_对象 & ".html"
    '将文本框中指定的表或者查询导出为HTML
    DoCmd.TransferText acExportHTML, , txt_对象, htmlPath, 1

附   件:

点击下载此附件