Makro-Formel
03.11.2005 14:40:35
norbert
vor einer Woche hat mir jemand mit diesem Makro ausgeholfen.
Leider kenn ich mit Makros nicht so gut aus und habe leider
noch ein kleines Problem:
Die erstellte Datei muss in jedem Fall "inventur.001" lauten.
Könnte mir jemand bitte das Makro dafür überarbeiten.
Vielen Dank schon einmal im voraus
Gruß Norbert
Sub Konvertiere()
Dim fn
Dim fn2 As String
Dim ff1 As Integer, ff2 As Integer
Dim tmp As String
fn = Application.GetOpenFilename("Textdateien (*.txt),*.txt")
If fn = False Then Exit Sub
fn2 = WorksheetFunction.Substitute(fn, ".txt", ".001")
Debug.Print fn, fn2
ff1 = FreeFile
Open fn For Input As ff1
ff2 = FreeFile
Open fn2 For Output As ff2
Do While Not EOF(ff1)
Line Input #ff1, tmp
Print #ff2, "," & Split(tmp, ";")(0) & "," & Split(tmp, ";")(1) & ".00,,001,0,0,0"
Loop
Close #ff1
Close #ff2
MsgBox "Datei " & fn2 & " wurde erfolgreich erzeugt."
End Sub