Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Spalte A als Text mit Endung xml speichern


Betrifft: VBA Spalte A als Text mit Endung xml speichern von: Sandro
Geschrieben am: 10.07.2017 14:47:09

Hallo,

Ich habe in Spalte A eine kml-Datei generiert. Diese möchte ich nun als Text mit der Endung kml abspeichern. Zum Test versuchte ich es von Hand als TXT. Jedoch die erste Zeile ist schon falsch. Ich bekomme zu viele Anführungszeichen (")

Meine Tabelle https://www.herber.de/bbs/user/114789.xlsm

Spalte A wird mit VBA generiert.
Dachte zuerst die Chr(34) im VBA-Code sind schuld, aber wenn ich Spalte A in den Editor Notepad kopiere erscheint der Text richtig.

Wie kann ich das am besten verwirklichen?

Vielen Dank für die zahlreichen Tipps :)

Sandro

  

Betrifft: AW: VBA Spalte A als Text mit Endung xml speichern von: yummi
Geschrieben am: 10.07.2017 15:02:34

Hallo Sandro,

kannst Du so machen:

Sub Schreibe()
Dim strxml As String

strxml = ActiveSheet.Cells(1, 1).Value & vbCrLf & ActiveSheet.Cells(2, 1).Value & vbCrLf &  _
ActiveSheet.Cells(3, 1).Value
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.xml" For Output As #1
        Print #1, strtxt
        Close #1

End Sub
gruß
yummi


  

Betrifft: AW: VBA Spalte A als Text mit Endung xml speichern von: Sandro
Geschrieben am: 11.07.2017 11:58:40

Hallo yummi
Vielen Dank

Print #1, strtxt
musste ich noch auf

Print #1, strxml
ändern, dann lief es.

Wie muss ich es noch ändern, dass die ganze Spalte A bis zur letzten beschriebenen Zeile in MeinXML.kml landet?
Sub Schreibe()
Dim strxml As String

strxml = ActiveSheet.Cells(1, 1).Value & vbCrLf & ActiveSheet.Cells(2, 1).Value & vbCrLf & _
ActiveSheet.Cells(3, 1).Value
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.kml" For Output As #1
        Print #1, strxml
        Close #1

End Sub
Vielen Dank
Silvano


  

Betrifft: AW: VBA Spalte A als Text mit Endung xml speichern von: yummi
Geschrieben am: 11.07.2017 13:32:34

Hallo Sandro

Sub Schreibe()
Dim strxml As String
dim i as long

for i = 1 to ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   strxml = strxml & ActiveSheet.Cells(i, 1).Value & vbCrLf 
next i
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.xml" For Output As #1
        Print #1, strxml
        Close #1

End Sub

Gruß
yummi


  

Betrifft: AW: VBA Spalte A als Text mit Endung xml speichern von: Sandro
Geschrieben am: 11.07.2017 15:51:51

Hallo yummi
Vielen Dank :-)


Beiträge aus den Excel-Beispielen zum Thema "VBA Spalte A als Text mit Endung xml speichern"