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

Sub ImportXMLFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim xmlFilePath As String
    Dim folderPath As String
    Dim fileCount As Integer
    Dim i As Integer
    
    ' 设置数据库和记录集
    Set db = CurrentDb
    Set rs = db.OpenRecordset("XMLData")
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Your\XMLFiles\" ' 修改为你的XML文件夹路径
    
    ' 获取文件夹中的文件数量
    fileCount = Dir(folderPath & "*.xml", vbDirectory)
    
    ' 循环处理每个XML文件
    For i = 1 To fileCount
        xmlFilePath = folderPath & Dir(folderPath & "*.xml")
        If xmlFilePath <> "" Then
            ' 读取XML文件内容
            Dim xmlContent As String
            xmlContent = ReadFile(xmlFilePath)
            
            ' 将内容插入到数据库表中
            rs.AddNew
            rs!Data = xmlContent
            rs.Update
        End If
    Next i
    
    ' 关闭记录集和数据库连接
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "所有XML文件已成功导入到Access数据库。"
End Sub

Function ReadFile(filePath As String) As String
    Dim fileNum As Integer
    Dim fileContent As String
    
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    fileContent = Input$(LOF(fileNum), #fileNum)
    Close #fileNum
    
    ReadFile = fileContent
End Function