Re: Im****ting Multiple XML files into Access 2003

On Aug 7, 1:43=A0pm, brianh...@[EMAIL PROTECTED]
 wrote:
> I would like to im****t about 40 XML files all in the same folder with
> the same structure into an Access table without having to im****t each
> one individually. The file names of the XML files are all different,
> and I have no control over that. Anyone know a way to do that?

something like this should work...

Private Sub Command0_Click()

    Dim strFile As String
    Dim strPath As String

    strPath =3D BrowseFolder("Choose a directory...")

    strFile =3D Dir(strPath & "\*.xml")
    Do Until strFile =3D ""
        strFile =3D Dir
        'DoCmd.TransferText acIm****tDelim, "MySavedSpecName",
"DestinationTable", strFile, False
        Application.Im****tXML DataSource:=3DstrFile, OtherFlags:=3D1
    Loop


End Sub
Except you're going to use