als textdatei semikolon getrennt speichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: als textdatei semikolon getrennt speichern
von: andreas e
Geschrieben am: 14.10.2003 08:12:04

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

Bild


Betrifft: AW: als textdatei semikolon getrennt speichern
von: geri
Geschrieben am: 14.10.2003 08:53:51

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


Bild


Betrifft: danke werde es mal testen ! oT
von: andreas e
Geschrieben am: 14.10.2003 09:44:23




 Bild

Beiträge aus den Excel-Beispielen zum Thema " als textdatei semikolon getrennt speichern"