Ausgesuchte Werte in Spalten als TxtFile speichern
24.04.2006 20:40:08
Josef
mit unten stehendem Code kann ich Werte in einem Arbeitsblatt als TextFile abspeichern, wenn die Zelle A1 markiert ist.
Ich möchte jedoch nur ausgesuchte Spalten in mehrere Textfiles bringen.
z.B. Spalte A bis Spalte K, Spalte L bis Spalte O, Spalte P bis Spalte Z usw.
In das jeweilige Textfile sollen die Daten in Excel von der Zeile 1 bis zur letzten eingebenen Zeile transferiert werden.
Wie müßte man bitte das unten stehende Makro verändern bzw. welche Lösung gäbe es bitte hier in VBA?
Sub Schreibe_TextFile()
F = FreeFile(0)
fname = InputBox("Bitte geben Sie den Dateinamen ein!", , "H:\NOVAIMPORT\*.txt")
MsgBox "File Selected is: " & fname
If fname <> False Then
Open fname For Output As #F
Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
FCol = Rng.Columns(1).Column
LCol = Rng.Columns(Rng.Columns.Count).Column
Frow = Rng.Rows(1).Row
Lrow = Rng.Rows(Rng.Rows.Count).Row
For i = Frow To Lrow
outputLine = ""
For j = FCol To LCol
If j <> LCol Then
'Semikolon als Texttrennzeichen, kann geändert werden
outputLine = outputLine & Cells(i, j) & ";"
Else
outputLine = outputLine & Cells(i, j)
End If
Next j
Print #F, outputLine
Next i
Close #F
End If
End Sub
Danke
Josef
Anzeige