xls als txt speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo berth,
folgendes Makro shreibt die Inhalte der Blatter in der aktiven Datei in eine Textdatei.
Du muss im Code noch festlegen, ob du die Value oder Text-Eigenschaft der Zellen in die Datei schreiben willst. Mit der Text-Eigenschaft werden die Inhalte so geschrieben, wie in Excel formatiert/angezeigt.
Evtl. gibt es auch noch ein Limit für die Tabs pro Zeile, musste halt mal probieren. mit 258 Spalten hat es funktioniert.
Gruß
Franz


Sub FileExport()
'Zeilenweiser Export der Spalten aus mehren Excel-Tabellenblätter
Dim Zeile As Long, wks As Worksheet, wbAktiv As Workbook, BlattNr As Integer
Dim FF As Integer, strText As String, ZeilenBlatt As Long, varDatei
Dim Spalte As Integer
varDatei = Application.GetSaveAsFilename(InitialFilename:="DatenFile.txt", _
Filefilter:="Textfiles (*.txt),*.txt", _
Title:="Dateiname für Daten-Textfile auwählen/festlegen")
If varDatei = False Then GoTo Ende
Set wbAktiv = ActiveWorkbook
Set wks = wbAktiv.Worksheets(1)
'Letzte Datenzeile ermitteln
ZeilenBlatt = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
FF = FreeFile
'Daten ins File schreiben
Open varDatei For Output As #FF
Application.ScreenUpdating = False
For Zeile = 1 To ZeilenBlatt
strText = ""
For BlattNr = 1 To wbAktiv.Worksheets.Count
Set wks = wbAktiv.Worksheets(BlattNr)
For Spalte = 1 To wks.Cells.SpecialCells(xlCellTypeLastCell).Column
If BlattNr = 1 And Spalte = 1 Then
strText = wks.Cells(Zeile, Spalte).text
'          strText = wks.Cells(Zeile, Spalte).Value
Else
strText = strText & vbTab & wks.Cells(Zeile, Spalte).text
'          strText = strText & vbTab & wks.Cells(Zeile, Spalte).Value
End If
Next
Next
Print #FF, strText
Next
Close #FF
Application.ScreenUpdating = True
MsgBox "Daten wurden in die Textdatei geschrieben!"
Ende:
Set wbAktiv = Nothing: Set wks = Nothing
End Sub

Sub test() Dim TabZ As Workbook Dim a As Byte, SpUnter As String Set TabZ = ThisWorkbook ChDir ThisWorkbook.Path SpUnter = Application.GetSaveAsFilename("Neue TextFile.txt") Worksheets.Add Before:=ActiveWorkbook.Worksheets(1) For a = 2 To TabZ.Sheets.Count TabZ.Sheets(a).Range("A1:" & TabZ.Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Address). _ Copy TabZ.Sheets(1).Cells(Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row, 1).PasteSpecial Next a TabZ.Sheets(1).Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ SpUnter, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close TabZ.Sheets(1).Delete Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

288 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

xls als txt speichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

288 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread