ordner öffnen
25.04.2007 01:07:02
Uwe
wie bekomm ich beide Codes so verbunden das nix meckert......
das hatte ich hier im Forum gefunden.......
Dim Pfad As String
Dim x As Variant
Pfad = "C:\test"
x = Shell("Explorer.exe /n,/e," & Pfad & "\", vbNormalFocus)
..........
der soll mit diesem verbunden werden......
Sub Letzte5()
Dim strFile As String, lngAnz As Long, strRec As String, strT As String
Dim ii As Integer, jj As Integer, zz As Long
strFile = "C:\test\Fz000004.st" ' anpassen
Close #1
Open strFile For Input As #1
Do While Not EOF(1)
Line Input #1, strRec: lngAnz = lngAnz + 1 ' Sätze zählen
Loop
Close #1
Open strFile For Input As #1
Do While Not EOF(1)
Line Input #1, strRec ' Sätze einlesen
ii = ii + 1
If ii > lngAnz - 7 Then ' nur die letzten 5 Sätze verarbeiten
For jj = 1 To 8
strT = Right(Left(strRec, jj * 13), 3)
If Len(strT) = 3 And InStr(strT, " ") = 0 And IsNumeric(strT) Then
zz = zz + 1
Sheets("Tabelle1").Cells(zz, 1) = strT
strT = Right(Left(strRec, jj * 13 + 9), 9)
If IsNumeric(strT) Then Sheets("Tabelle1").Cells(zz, 2) = strT / 100
End If
Next jj
End If
Loop
Close #1
End Sub
....hatte ich mir so gedacht.....krieg ich aber nicht hin.....
Hintergrund ist das in diesem Ordner die Datei mit ihrer Endnummer jedesmal ändert..also diesmal Fz000004.st beim nächstenmal dann halt Fz000005.st
Hatte jetzt den Gedanken das sich erst der Ordner öffnet und man dann die richtige Datei dann öffnet.
Hoffe ich hab das einigermaßen Erklären können und danke schon mal im vorraus.
Gruß Uwe