Konwertuj plik xml na plik xlsx za pomocą VBA


Jak konwertować

xml

pliki w

xlsx

?
Pliki
xml
istnieją w folderze i chcę zapisać pliki
xlsx
w innym folderze.
Przykład:

Istniejący plik:
C:\Users\John\Documents\xml\data.xml


Konwertuj na to:
C:\Users\John\Documents\xlsx\data.xlsx
Zaproszony:
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

Czy to właśnie próbujesz zrobić?
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
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

Ja to zrobiłem.
Public Sub ConvertXmlToXlsx()Application.DisplayAlerts = FalseDim objFSO As Object
Dim objFolder As Object
Dim objFile As ObjectxmlFolder = "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

Koniec łodzi podwodnej

Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się