Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus Excel per Button in eine xml Datei

Daten aus Excel per Button in eine xml Datei
04.08.2013 01:25:36
Dirk
Hallo @all,
bin wieder dabei einen Lieferschein zu erweitern https://www.herber.de/bbs/user/86607.xlsm
Und zwar möchte ich das man per Button einige Daten aus Excel in eine neue xml Datei geschrieben wird und in einem bestimmten Ordner gespeichert wird (Desktop/Test). Die XML-Datei sollte diese Inhalte haben und so aufgebaut sein:
https://www.herber.de/bbs/user/86710.txt
Dadurch könnte ich die Doppeleingabe in ein Versandprogramm sparen.
Vielen Dank
DIRK

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Excel per Button in eine xml Datei
05.08.2013 10:23:51
doris
Hallo Dirk,
Beispiel von Aufbau der der neuen XML-Datei bringt beim öffnen Fehler.
kannst das noch mal bereitstellen (vielleicht liegt es daran, dass es txt ist)
Gruß
Doris

AW: Daten aus Excel per Button in eine xml Datei
05.08.2013 21:18:20
Dirk
Hallo Doris,
leider ist hier im Forum eine Hochladen der XML-Datei nicht erlaubt. Deshalb nochmals mal als Word-Datei:
https://www.herber.de/bbs/user/86726.doc

Anzeige
AW: Daten aus Excel per Button in eine xml Datei
06.08.2013 15:06:18
Doris
Sorry Dirk,
muss es unbedingt eine XML-Datei sein ? Die habe ich bisher nur importiert. Die andere Richtung scheint nicht so einfach zu sein.
Findest hoffentlich noch einen Experten.
Gruß Doris

Anzeige
AW: Daten aus Excel per Button in eine xml Datei
08.08.2013 18:57:18
Dirk
Hallo Doris,
ja leider...die Daten sollen per Klick an das UPS-Worldship Programm übergeben werden...dieses verlangt halt xml. Habe hier im Forum etwas älteres gefunden...vielleicht lässt sich ja darauf aufbauen ?!?!
  • 
    Sub xx()
    ' File System Object for accessing the filesystem
    Dim fso, fileWrite
    Const ForWriting = 2
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim Outputfile As String
    ' set outputfile(xml)
    Outputfile = "\\kschneid01\ups\XML\Grisebach4.xml"
    Set fileWrite = fso.createTextFile(Outputfile, ForWriting, True)        ' create TextFile(the  _
    XML File)
    ' Write the xml file / first part
    fileWrite.WriteLine ""
    fileWrite.WriteLine ""
    Dim A1, A2, A3, A4, A5
    A1 = Worksheets("Tabelle1").Cells(1, 1) ‘Gib A1 den Wert, der in Spalte Nr. 1 und Zeile Nr. 1  _
    des Excel-Sheets steht
    A2 = Worksheets("Tabelle1").Cells(2, 1)
    A3 = Worksheets("Tabelle1").Cells(3, 1)
    A4 = Worksheets("Tabelle1").Cells(4, 1)
    A5 = Worksheets("Tabelle1").Cells(5, 1)
    ' write OpenShipment-Tag
    fileWrite.WriteLine " "
    ' write OpenShipment/Reciver
    fileWrite.WriteLine ""
    fileWrite.WriteLine "  "
    fileWrite.WriteLine ""
    fileWrite.WriteLine " "
    fileWrite.WriteLine " "
    fileWrite.WriteLine " "
    fileWrite.WriteLine ""
    ' close the OpenShipments-Tag at end of file
    fileWrite.WriteLine ""
    'close files
    fileWrite.Close
    MsgBox "Fertig!", vbOKOnly
    End Sub
    

  • Anzeige
    AW: Daten aus Excel per Button in eine xml Datei
    09.08.2013 15:14:15
    Doris
    Hallo Dirk,
    glaube ich kriegs hin. Obiger Makro speichert zwar aber läßt sich nicht öffnen. Hab' noch etwas Geduld.
    Gruß Doris

    AW: Daten aus Excel per Button in eine xml Datei
    09.08.2013 23:00:14
    Dirk
    Hallo Doris,
    das hört sich ja schon einmal gut an. Falls der Beitrag zu gemacht werden sollte (Archiv) hier meine Mail Adresse: onlyfouryou@web.de
    Natürlich solange man noch hier Antworten hier schreiben und vielleicht hat ein Anderer ein Lösungsansatz!!

    Anzeige
    AW: Daten aus Excel per Button in eine xml Datei
    10.08.2013 10:25:50
    Doris
    Hallo Dirk,
    das hat bei mir geklappt. Verzeichnis und Tabelle muss noch angepasst werden.
    Sub Test_Save()
    Dim Verzeichnis As String
    Dim Tabelle_save As String
    Verzeichnis = "D:\Verzeichnis_Deiner_Wahl\"
    Tabelle_save = "Datei_Deiner Wahl"
    Workbooks.Open Filename:=Verzeichnis & Tabelle_save & ".xlsx "
    ActiveWorkbook.SaveAs Filename:=Verzeichnis & Tabelle_save & ".xml " _
    , FileFormat _
    :=xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    End Sub
    
    Na dann ein schönes Wochenende
    Doris

    Anzeige
    AW: Daten aus Excel per Button in eine xml Datei
    11.08.2013 00:01:04
    Dirk
    Hallo Doris,
    jetzt muss ich nur noch sehen wie ich die Daten, die ich benötige aus dem Lieferschein https://www.herber.de/bbs/user/86607.xlsm (Name, Strasse, PLZ, Ort, Anzahl, Gewicht, Bordero Nr(Ref.1) ins folgende Schema zu bringen https://www.herber.de/bbs/user/86726.doc
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige