Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

als textdatei semikolon getrennt speichern

als textdatei semikolon getrennt speichern
14.10.2003 08:12:04
andreas e
hallo zusammen,kann es leider nicht in der recherche finden obwohl ich mir sicher bin es liegt da gut warm und trocken.
Wie kann ich denn eine 2 spaltige Tabelle als textdatei mit trenner semikolon speichern ?
Danke für eure Hilfe
Gruß
andreas e

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: als textdatei semikolon getrennt speichern
14.10.2003 08:53:51
geri
Hallo Andreas

habe dies gefunden


Sub AlsTextSpeichern()
Dim rng As Range
Dim iFile As Integer, iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String, sText As String
Set rng = Range("A1").CurrentRegion
iFile = FreeFile
sFile = Application.Path & "\texttest.txt"
Open sFile For Output As iFile
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
Select Case iCol
Case 1, 2, 4
sTxt = sTxt & Cells(iRow, iCol).Text & ";"
Case 5
sTxt = sTxt & Cells(iRow, iCol).Text
End Select
Next iCol
Print #iFile, sTxt
sTxt = ""
Next iRow
Close
Workbooks.OpenText _
Filename:=sFile, _
DataType:=xlDelimited, _
tab:=False, _
semicolon:=True, _
comma:=False, _
Space:=False, _
other:=False
Columns.AutoFit
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
'Kill sFile
End Sub


gruss geri
Anzeige
danke werde es mal testen ! oT
14.10.2003 09:44:23
andreas e

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige