VBA-
20.02.2019 08:32:09
Valentin
ich bin noch ein Einsteiger was VBA angeht und komme bei folgendem Problem nicht weiter:
Ich würde gerne eine Datei ausgeben lassen als *.xml. Dies habe ich folgendermaßen gelöst (im _ Modul1):
Sub TXT_erzeugen()
Dim strDateiname As String, strPath As String
Dim i As Long, lngZeile As Long
Dim MyString
strPath = "D:\" 'Speicherort _
festlegen
strDateiname = "Test_Datei.xml"
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
Open strPath & strDateiname For Output As #1
Dim BMK()
Dim size As Integer
Dim N As Integer
size = WorksheetFunction.CountA(Worksheets(1).Columns(1))
ReDim BMK(size)
For N = 1 To size '
Print #1, Space(12); " "
Print #1, Space(15); " "
Print #1, Space(15); ""; Cells(N, 1); " "
Print #1, Space(12); " "
Next N
Close #1
End Sub
Nun würde ich gerne in einem zweiten Modul einen weiteren Text erstellen und diesen in die xml-Datei integrieren. Dies will ich mit 20 Modulen machen und jedes mal in die xml-Datei integrieren.
Die Daten für die Module will ich jeweils aus einer einzigen Excel herauslesen.
Habt ihr vielleicht eine Idee wie ich das realisieren kann
LG Valentin