kapiere mal wieder nix
02.05.2005 12:16:54
roland_k
hi micha
blicks mal wieder nicht
ich kopiere mal den ganzen code:
Sub modul_Import_punkte()
Dim strDatei As String
Do While True
strDatei = GetSingleFile ' Dateinamen holen
If Len(strDatei) = 0 Then Exit Do
'LiesSpielbericht strDatei
Dim i As Long
Dim Zeilen() As String 'speichert die x zuletzt eingelesenen Zeilen
Const x = 16 'x.-te Zeile von unten wird gesucht
ReDim Zeilen(1 To x)
'Open "C:\excel\geld_skat\test_LST\1.lst" For Input As #1
Open strDatei For Input As #1
i = 0
Do While Not EOF(1)
For i = 2 To x
Zeilen(i - 1) = Zeilen(i)
Next i
Line Input #1, Zeilen(x)
Loop
Close #1
'MsgBox x & "-te Zeile von unten:" & Zeilen(1)
spalte = Cells(5, 99).End(xlToLeft).Column
zeile = Cells(66, 2).End(xlUp).Row
For i = 1 To x
datum1 = Right(strDatei, 21)
datum2 = Left(datum1, 8)
If i = 1 Then Cells(i - 1 + 3, spalte + 1) = datum2
zeit1 = Right(strDatei, 12)
zeit2 = Left(zeit1, 5)
If i = 1 Then Cells(i + 3, spalte + 1) = zeit2
If i = 5 Then Cells(i + 0, spalte + 1) = Left((Zeilen(i)), InStr(1, (Zeilen(i)), " ") - 1)
If i = 7 Then Cells(i - 1, spalte + 1) = Val(Mid(Zeilen(i), 15, 5))
If i = 9 Then Cells(i - 1, spalte + 1) = Left((Zeilen(i)), InStr(1, (Zeilen(i)), " ") - 1)
If i = 11 Then Cells(i - 2, spalte + 1) = Val(Mid(Zeilen(i), 15, 5))
If i = 13 Then Cells(i - 2, spalte + 1) = Left((Zeilen(i)), InStr(1, (Zeilen(i)), " ") - 1)
If i = 15 Then Cells(i - 3, spalte + 1) = Val(Mid(Zeilen(i), 15, 5))
'MsgBox i & "-te Zeile von unten:" & Zeilen(i)
Next i
Loop
End Sub
wo oder wie schliesse ich nun die datei?
und dann verschieben in C\archiv
also ich will dass die bearbeitet datei nicht mehr in dem ursprungsordner vorhanden ist um zu vermeiden dass ne datei zweimal einlese
zudem stehn dann im ursprungs ordner immer nur die dateien die noch nicht eingelsen sind
danke ..dir wenn das nochmal anschaust
gruss roland_k