Konvertieren von xml-Datei in xlsx-Datei mit VBA

Wie kann ich umwandeln xml Dateien zu xlsx?

Den xml vorhandenen Dateien in einem Ordner und ich möchte speichern Sie die xlsx - Dateien in einen anderen Ordner.

Beispiel:

Vorhandenen Datei: C:\Users\John\Documents\xml\data.xml

Konvertieren diese: C:\Users\John\Documents\xlsx\data.xlsx

  • Am besten wäre ein makro schreiben, in excel oder import Ihrer xml zu excel. Excel verfügt über eine Eigenschaft zum importieren von xml als Tabelle. Verlängern Sie es über ein VBA-makro.
  • Versuchen Sie die Aufzeichnung eines Makros mit @anonxss erwähnten Methode und sehen, ob was raus kommt wird für Sie arbeiten.
  • Ja, das makro ist, was ich Fragen, für! 🙂 Könnte jemand den folgenden code schreiben? Weil ich nicht. Dieser Ordner enthält mehrere xml-Dateien, damit der VBA-code sollte sein schreiben gemäß diesem Fall.
  • Möglich, Duplikat der VBA-code ändern-Datei-format mehrerer Dateien in einem Ordner
  • Es ist etwas falsch mit diesem code. Denn ich kann nicht ändern, wie es Scott Holtzman schrieb. Es zeigt Fehlermeldung: "end of statement"
  • Bearbeiten Sie den code, den Sie versucht, in der ursprünglichen Frage.
  • Welcher Teil des Codes und wie soll ich Sie Bearbeiten?
  • Kann jemand mir zeigen, ein funktionierendes VBA-code für dieses Problem?

InformationsquelleAutor vergab | 2016-07-26
  1. 0

    Ist es das, was Sie zu tun versuchen?

    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
    • Fast 🙂 Siehe meinen code unten.
    InformationsquelleAutor 0m3r
  2. 0

    Tat ich es.

    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

    InformationsquelleAutor vergab
Schreibe einen Kommentar