xml 导入 mysql_将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