VBA-Beispiel 053
mail schreiben
mail schreiben

Tabelleninhalt von Excel in eine Textdatei exportieren

Die Textdatei wird im gleichen Ordner und mit dem gleichen Namen wie die Exceldatei angelegt.

Eventuell schon vorhandene Inhalte, werden ohne Rückfrage überschrieben.
Sub Dateiexport()
'falls die Zieldatei noch nicht vorhanden ist,
'wird sie erstellt
Dim Datei As String, Text As String  
Dim Zeile As Long  
Dim zeigen

On Error GoTo Fehler    

'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"

Open Datei For Output As #1            'Zieldatei öffnen

For Zeile = 1 To 10  
'reinschreiben
  Print #1, Cells(Zeile, 2) & "   " & Cells(Zeile, 4)
Next Zeile

Close #1    'Zieldatei schließen

zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)

Exit Sub  

Fehler:
Close #1
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub  

Download:   vba053.zip