xml2csv

Hi!

I have been struggling with a simple import/save code. I would like to import multiple xml files in excel and save them individually in csv format with their original name. I have written a code to do this. However, the newly created csv files are empty. What am I doing wrong?

Help would be greatly appreciated! Thanks!


Sub xml2csv()
Dim sPath As String
Dim sFile As String
Dim sDir As String
Dim oWB As Workbook
Dim i1 As Long
Dim iMax As Long

On Error GoTo Err_Clk

sPath = "U:\Batch1"
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"

sDir = Dir$(sPath & "*.xml", vbNormal)
Do Until LenB(sDir) = 0

Workbooks.Add
ActiveWorkbook.XmlImport URL:= _
sDir, _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

sFile = Left(sDir, InStr(sDir, "."))

ActiveWorkbook.SaveAs Filename:=sPath & sFile & "csv", _
FileFormat:=xlCSV, CreateBackup:=False

ActiveWorkbook.Close SaveChanges:=False
sDir = Dir$
Loop

Err_Clk:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

It now works.
Thank you for your help!