Bereich als .txt speichern?

08/09/2008 - 11:46 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002.

Habe schon gesucht aber nichts gefunden.
In einer Tabelle wird ein beliebiger Bereich markiert und dieser Bereich
soll als *.txt gespeichert werden.
Dabei soll der Dialog für den Speicherort ("Speichern unter") aufgerufen
werden.
Es muß also möglich sein den Dateinamen und den Speicherort zu vergeben.
Wie kann ich dieses Problem lösen?

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Peter Schleif
08/09/2008 - 13:17 | Warnen spam
Peter Schürer schrieb am 08.09.2008 11:46 Uhr:

In einer Tabelle wird ein beliebiger Bereich markiert und dieser Bereich
soll als *.txt gespeichert werden.
Dabei soll der Dialog für den Speicherort ("Speichern unter") aufgerufen
werden.



Der Code trennt Spalten mit TAB. Làsst sich aber anpassen. Ebenso der
vorgeschlagene Dateiname: Tabellen-Name + Bereich-Adresse. Falls die
Datei existiert, wird sie ohne Warnung überschrieben.

Peter

Sub MarkierungAlsTextSpeichern()
Dim save_as As Variant
Dim zeile As Range
Dim fso As Object
Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")

save_as = Application.GetSaveAsFilename(ActiveSheet.Name _
& "_" & Replace(Selection.Address(0, 0), ":", "-"), _
fileFilter:="Text (*.txt), *.txt")

If save_as <> False Then
Set file = fso.CreateTextFile(save_as, True)
For Each zeile In Selection.Rows
file.WriteLine Join(Application.Transpose( _
Application.Transpose(zeile)), vbTab)
Next
file.Close
End If
End Sub

Ähnliche fragen