将XML 文件导入到Access 数据库

时　间:2017-08-20 09:18:57
作　者:杨雪   ID：42182  城市：南京
摘　要:将XML 文件导入到Access 数据库
正　文:

若要将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