excel - 使用VBA将xml文件转换为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

结束子