Dateizugriff
09.08.2007 09:24:00
Manfred
ich habe da ein Problem, und keine vernünftige Lösung.
Zuerst der Ablauf: Auf einem Rechner werden alle 2 Sekunden Daten (Zahlen) gesammelt und dann per Copy-Befehl auf einen Server kopiert (26 Dateien im Textformat: z.B. Band.TXT).
Diese Daten (Dateien) weden von ca. 20-100 Rechnern durch Excel-Macros im Rythmus von 5-7 Sekunden ausgelesen.
Nun das Problem: Es passiert jetzt immer häufiger (weil mehr Rechner zugreifen), das eine (beliebige) Datei durch einen der 20-100 Rechnern geöffnet, aber nicht mehr geschlossen wird (ca. 1-5 mal pro Tag) .
Dadurch können "alle" Rechner diese Datei leider nicht mehr öffnen.
Nun meine Frage: Wie kann man diese Dateien trotzdem nochmal öffnen, oder sollte ich einen anderen Weg einschlagen. Ich möchte aber eine Datenbank (aus organisatorischen Gründen) auf jeden Fall vermeiden (also entweder Xls oder Txt Dateien).
Desweiteren währe eine HTML-Lösung aus Zeitgründen nicht möglich.
Hier der Quelltext zum Auslesen der Datei:
Sub Calculat()
Dim Wert(41), Werte
Dim Dateinummer, Index As Integer
Dim Dateiname As String
On Error GoTo Error_Handler
Dateinummer = FreeFile
Dateiname = "Bock_6W_PLC2" & ".TXT"
Open PfadVisualisierungExtern & Dateiname For Input As #Dateinummer
Do While Not EOF(Dateinummer)
Input #Dateinummer, Index, Werte
Wert(Index) = Werte
Loop
Close #Dateinummer
Wert_Tag = Wert(3)
Wert_Frueh = Wert(4)
Wert_Spaet = Wert(5)
Wert_Nacht = Wert(6)
Error_Handler:
If Err.Number 0 Then
Err.Clear ' Clear Err object properties.
End If
On Error Resume Next
On Error GoTo 0
End Sub