示例下载

 

若要将XML文件导入到数据库中，可以使用当前数据库的Application属性的ImportXML方法，其具体语法：

Application.ImportXML[导入 XML文件]

由于XML 文件中保存了对象的相关信息，所以不需要为导入的对象重新命名。

 

源码：

'将XML文件导入到当前数据库
Private Sub Command0_Click()
    Dim dg As Office.FileDialog
    Dim xmlPATH As String

    '通过文件对话框获取XML 文件路径
    Set dg = Application.FileDialog(msoFileDialogOpen)
    With dg
        .Title = "选择导入的XML"
        .Filters.Clear
        .Filters.Add "HTML 文件", "*.xml"
        .Show
    End With

    xmlPATH = dg.SelectedItems.Item(1)
    '导入XML文件
    Application.ImportXML xmlPATH
End Sub