Convert XML Files to Excel

[Jali1992]

Hi Guys,

Just wondering if anyone knows how I can convert XML files to EXCEL format easily?

Thanks.

Jay

 

[footoo]

https://www.google.com/search?q=con...rome.0.0l6.15331j0j8&sourceid=chrome&ie=UTF-8

 

[GirishDhruva]

Hi Try with the below code

Public Sub Jali1992()


Application.DisplayAlerts = False


Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object


xmlFolder = "'Give your source folder path"
convFolder = "'Destinatioon folder path"




Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(xmlFolder)
For Each objFile In objFolder.Files
    If UCase(Right(objFile.Name, Len(XML))) = UCase(XML) Then
        NewFileName = convFolder & objFile.Name & "_conv.xlsx"


        Set ConvertThis = Workbooks.Open(objFolder & "\" & objFile.Name)
        ConvertThis.SaveAs Filename:=NewFileName, FileFormat:= _
        xlOpenXMLWorkbook
        ConvertThis.Close
    End If
Next objFile
End Sub

Regards
Dhruv

 

[Jali1992]

Hi Guys, the problem I am having is that I am working on a SQL database, and the data is in a BLOB, this blob is in just XML text, which I need to convert 1000's of rows of data into Excel, is there any way to do this?

 

[sandy666]

Use Power Query (Get&Transform)