Mit nachfolgendem Makro erzeuge und speichere ich eine Textdatei vom aktiven Arbeitsblatt.
In der Inputbox steht dann H:\NOVAIMPORT\*.txt.
In der Zeile A1 des aktiven Arbeitsblattes steht z.B. folgendes:
401351700000501000000001270505
Ist es bitte möglich, dass als Speicherungsvorgabe von der Zeile A1 die 4-9 Stelle + das Datum in die InputBox eingegeben wird?
Beispiel: H:\NOVAIMPORT\351700_270505.txt
Danke
Josef
Sub Daten_Speichern()
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