Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel umwandeln und als TXT speichern

Excel umwandeln und als TXT speichern
18.01.2013 15:06:56
Uwe
Hallo,
ich habe Werte (Text) in Spalte A bis D stehen. Die möchte ich per Makro wie folgt als xxx.txt ausgeben: [Spalte A];[Apalte B]_[Spalte C]_[Spalte D]
Wie mache ich sowas?
Vielen Dank für Eure Hilfe,
Uwe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel umwandeln und als TXT speichern
18.01.2013 16:53:33
fcs
Hallo Uwe,
den Textstring per Anweisungen Zeilenweise zusammenbasteln und in die Textdatei drucken.
Gruß
Franz
Sub Text_File_erstellen()
Dim wks As Worksheet
Dim varFile As Variant
Dim strText As String
Dim Zeile As Long, FF As Integer
varFile = Application.GetSaveAsFilename(InitialFileName:="Text.txt", _
Filefilter:="Textfiles (*.txt), *.txt", _
Title:="Bitte Namen der Textdatei wählen/eingeben")
If varFile = False Then Exit Sub
FF = FreeFile()
Set wks = ActiveSheet
Open varFile For Output As #FF
With wks
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
strText = "[" & .Cells(Zeile, 1).Text & "];[" _
& .Cells(Zeile, 2).Text & "]_[" _
& .Cells(Zeile, 3).Text & "]_[" _
& .Cells(Zeile, 4).Text & "]"
Print #FF, strText
Next Zeile
End With
Close #FF
Set wks = Nothing
End Sub

Anzeige

288 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige