将具有类似结构的多个XML文件导入具有相同表的Access DB中

编程问答 2022-08-16

问题描述

我研究并获得了从本地路径向Access数据库表导入多个XML文件的代码。我打算添加一个延迟计时器，以免在桌面导入速度太慢的情况下避免每个XML文件之间发生合谋。

Private Sub Command2_Click()

Dim fs
Dim fsFolder
Dim fsFile
Dim i As Double

Set fs = CreateObject("scripting.filesystemobject")
Set fsFolder = fs.getfolder("C:\MyDesiredPath")

For Each fsFile In fsFolder.files
Debug.Print fsFile.Name
Application.ImportXML fsFile.Path,acStructureAndData

i = Timer + 0.5
While Timer < i
    DoEvents
Wend
Next fsFile

End Sub

根据此代码，如果共享路径中有100个XML文件，则在导入XML文件后将在数据库中产生100个表。但是，我的目标是将所有这100个XML文件放入一个表中。由于它们具有相同的结构，我认为这是可能的。有人可以帮助我提供正确的代码吗？

非常感谢您！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-accessxmlxmlxmlxmlxmlxml