Dateiname anzeigen
09.09.2008 13:07:00
Ralf
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
Gruß Ralf
Anbei der Code mit dem die Datei geschrieben wird.
Sheets("Export Komalog select").Select
Range("A1").Select
Dim liZeile As Integer, lstrInhalt As String
For liZeile = 1 To 20000
lstrInhalt = lstrInhalt & "" & Range("A" & liZeile).Value
Next
Open "X:\OTM\sped_08\export_komalog\ek_2_" & Right(Filter, 3) & ".txt" For Output As #1
Print #1, lstrInhalt;
Close
lstrInhalt = ""