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

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
AW: VBA Spalte A als Text mit Endung xml speichern
11.07.2017 15:51:51
Sandro
Hallo yummi
Vielen Dank :-)
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige