Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Spalte A als Text mit Endung xml speichern

VBA Spalte A als Text mit Endung xml speichern
10.07.2017 14:47:09
Sandro
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Spalte A als Text mit Endung xml speichern
10.07.2017 15:02:34
yummi
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
AW: VBA Spalte A als Text mit Endung xml speichern
11.07.2017 11:58:40
Sandro
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
Anzeige
AW: VBA Spalte A als Text mit Endung xml speichern
11.07.2017 13:32:34
yummi
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
AW: VBA Spalte A als Text mit Endung xml speichern
11.07.2017 15:51:51
Sandro
Hallo yummi
Vielen Dank :-)

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige