Dateinamen bearbeiten

Rainer · 2012-11-14T11:54:01+00:00

Hallo zusammen, ich benötige Hilfe für folgendes Problem: Ein externes Messgerät generiert nach der Messung eine Datei, Analyse_(Datum_Uhrzeit).lims, diese Datei wird auf ein externes Laufwerk gespeichert. Die Datei soll mit Excel geladen und ausgewertet werden. Über eine Zeitschleife schaue ich alle 2 sec. ob eine *.lims Datei vorhanden ist. Bisland hatten wir ein anderes Messgerät eingesetzt, welches eine Datei ohne Datum und Uhrzeit generierte (immer gleicher Name). Funktioniert jetzt nun leider nicht mehr weil das neue Messgerät Datum und Uhrzeit im Dateinamen einfügt. Was habe ich jetzt für Möglichkeiten, den Dateinamen über VBA bearbeiten oder Datum und Uhrzeit zu ignorieren. Wäre schön wenn mir bei dieser Problemstellung helfen könnte. Danke und Gruß Rainer

Hallo Rudi,
hier ist der Code den ich verwenden will:
Schau da mal bitte rüber wo ich was verändern muß.
Vielen Dank für deine Hilfe.
Gruß Rainer
Option Explicit
Dim Pfad As String
Dim Dateiname As String

Sub auto_open()
Pfad = "C:\Export"
Dateiname = "Analyse_.lims"
Application.OnTime Now + TimeValue("00:00:00"), "Alle_5_Sekunden"
End Sub

Sub Alle_5_Sekunden()
If Dir(Pfad & Dateiname)  "" Then
Application.OnTime Now + TimeValue("00:03:59"), "AusTextDatei"
Else
Application.OnTime Now + TimeValue("00:00:05"), "Alle_5_Sekunden"
End If
End Sub

Sub AusTextDatei()
Sheets("ausgelesene_Daten").Select
Dim intRow As Integer, intCol As Integer
Dim strTxt As String
Dim sFile As String
sFile = "C:\Export\analyse_.lims"
Range("A1:da5").Select
Selection.ClearContents
Range("A1").CurrentRegion.ClearContents
If Dir(sFile) = "" Then
MsgBox "Kann Mess - Datei nicht finden -" _
& Chr(13) & "bitte Excel neu starten" _
& Chr(13) & "und Messung wiederholen"
Exit Sub
Else
Open "C:\Export\analyse_.lims" For Input As #1
End If
Do Until EOF(1)
intRow = intRow + 1
intCol = 0
Line Input #1, strTxt
Do Until InStr(strTxt, ";") = 0
intCol = intCol + 1
Cells(intRow, intCol) = Left(strTxt, InStr(strTxt, ";") - 1)
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, ";"))
Loop
Cells(intRow, intCol + 1) = strTxt
Loop
Close
Sheets("ausgelesene_Daten").Select
Range("a1").Select
Kill "C:\Export\analyse_.lims"
Call ausdruck
Call auto_open
End Sub

Sub ausdruck()
Sheets("Ausdruck").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ausgelesene_Daten").Select
End Sub

Hallo Rudi,
einfach genial, vielen Dank für deine Unterstützung.
hatte doch tatsächlich diesen dummen Fehler gemacht und nicht gesehen.......
Die Wartezeit resultiert noch aus der Steuerung von unserem alten Messgerät, das legte die Datei zum Beginn der Messung an und vervollständigte diese nach Abschluss der Messung (kleiner als 4 Minuten).
.....und genau hier habe ich jetzt noch ein Problem, die zweite Zeitschleife sollte bei nicht vorhandener Analyse_*.lims alle 5 sec nachschauen ob die Datei vorhanden ist, wenn nicht, sich selbst wieder aufrufen. Macht sie aber nicht, sondern startet das Markro zum auslesen der Datei, da diese aber nicht immer verfügbar ist läuft es auf einen Fehler und startet den Debugger.
Vielleicht kannst du mir hierzu noch einen tipp geben wo der Fehler liegt?

Sub auto_open()
sPfad = "C:\Export\"
DateiName = "Analyse_*.lims"
Application.OnTime Now + TimeValue("00:00:00"), "Alle_5_Sekunden"
End Sub

Sub Alle_5_Sekunden()
sFile = Dir(sPfad & DateiName)
If DateiName  "" Then
Application.OnTime Now + TimeValue("00:00:20"), "AusTextDatei"
Else
Application.OnTime Now + TimeValue("00:00:05"), "Alle_5_Sekunden"
End If
End Sub

Gruß
Rainer

Forumthread: Dateinamen bearbeiten

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Dateinamen bearbeiten

Forumthread: Dateinamen bearbeiten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread