xmlファイルをVBAのxlsxファイルに変換する

Question

xmlファイルをxlsxに変換するにはどうすればよいですか？

xmlフォルダに存在するファイルで、xlsxファイルを別のフォルダに保存したいとします。

例：

既存のファイル：C:\Users\John\Documents\xml\data.xml
これに変換しますC:\Users\John\Documents\xlsx\data.xlsx

Answer 1

私はそれを行いました。

Public Sub ConvertXmlToXlsx() 

Application.DisplayAlerts = False 

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

xmlFolder = "C:\Users\John\Documents\xml\" 
convFolder = "C:\Users\John\Documents\xls\" 


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の

Answer 2

は、あなたがやろうと何本か？

Option Explicit 
Public Sub XML_To_xlsx() 
    Dim FilePath As String 
    Dim Book As Workbook 

' Load XML Data to New Workbook 
    FilePath = "C:\Users\John\Documents\xml\data.xml" 
    Set Book = Workbooks.OpenXML(FilePath) 

    'Copy to active Worksheet 
    Book.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet1").Range("A1") 

    'Close New Workbook 
    Book.Close False 
End Sub