[VBA/ACCESS] Importare file XML multipli

[omaggi]

Ciao a tutti.
Sto' creando un applicativo in access che deve importare dei dati in una tabella. I file di orgine sono di formato XML.
Ho una piccola domanda.
Con il codice, qui sotto, riesco ad importare il file nella tabella, però non riesco ad importarne più files (in questo caso dovrei importare tutti i file che risiedono nella cartella c:\Energia).

Private Sub cmdImporta_Click()
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase ("C:\ImportXML.accdb")
appAccess.ImportXML "C:\Energia\EsEnergia.xml", acAppendData
appAccess.CloseCurrentDatabase
appAccess.Quit acExit
Set appAccess = Nothing
End Sub

Grazie mille dell'aiuto, ciao!

[alka]

Originariamente inviato da omaggi
Importare file xml multipli

Il linguaggio di riferimento va indicato anche nel titolo, come da Regolamento.
Qui l'ho aggiunto io.

[8matt5]

Intanto se fai tutto da dentro access puoi evitare di dichiarare e impostare appAccess e utilizzare direttamente l'oggetto Application il quale si riferirà all'applicazione access entro il quale stai lavorando.

Comunque passando al sodo ti crei un oggetto FileSystemObject in questo modo:

Dim fso as Object, fld, f
Set fso = CreateObject("Scripting.FileSystemObject")

' Oppure importi la libreria "Microsoft Scripting Runtime" e dichiari così

Dim fso As New Scripting.FileSystemObject
Dim fld As Folder
Dim f As File


'Comunque prosegui così:

Set fld = fso.GetFolder("C:\Energia")
For Each f In fld.Files
    appAccess.ImportXML f.Path, acAppendData
Next