Betriebsdatenerfassung / u.a. Laufzeitfehler 76 un
Jörg
ich habe für das Unternehmen in dem ich arbeite eine BDE(Betriebsdatenerfassung) Visualisierung in Excel erstellt.
Habe aber nun ein paar Probleme und hoffe mit eurer Hilfe das ganze stabil ans Laufen zu bekommen.
Zur Erklärung:
Die ganze Anwendung BDE läuft auf einem Server (Laufwerk Q im Netz)
Auf diesem Laufwerk liegen die Quelldaten der Maschinen im Betrieb die permanent aktualisiert werden.
Die meisten Dateien sind aus diesem Grund permanent geöffnet.
Dies war bereits die erste Schwierigkeit die Daten zur weiteren Bearbeitung Lokal auf den Visualisierungsrechner zu kopieren. (Laufwerk C)
Habe das dann aber über einen Tip hier im Forum realisiert bekommen:
"
Sub TestSub()
Dim FsyObjekt As Object
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
FsyObjekt.CopyFile "q:\zw_ter.dbf", "C:\zw_ter.dbf"
End Sub
Jedoch benötige ich ausser der o.g. Datei (zw_ter) eine weitere für die Visualisierung. (paretotg.dbf)Die Datei wird immer nach dem aktuellen Datum auf Laufwerk Q benannt.
Dies habe ich zur Zeit mit einer Batch-Datei relaisiert:
"
q:
cd\
dir mp*.* /OD /B >"c:\bd.txt"
for /F %%a in (C:\Bd.txt) do set bd=%%a
if exist %Bd% copy %Bd% c:\paretotg.dbf
"
gibt es eine Möglichkeit diesen BatchCode auch in VB unter Excel auszuführen?
Damit ich den Umweg über die BatchDatei nicht mehr benötige.
Die Visualisierung laüft erstaunlicherweise sehr gut, auch wenn Excel wahrscheinlich nicht unbedingt für permanente Visualisierung gedacht ist.
Leider bekomme ich hin und wieder den Laufzeitfehler 76
Es könnte sein das dass mit dem Kopiervorgang oder ausführen der BatchDatei zusammenhängt. (Kurzzeitige Verlust vom Netzlaufwerk / Sperrung oder so)
Gibt es eine Möglichkeit diesen Fehler bewusst zu unterdrücken, oder einfach zu überspringen und später zu wiederholen?
Zur Zeit crasht mir VB, und dann ist natürlich Ende mit Aktualisierung und Anzeige der Daten.
Gibt es generell Lösungen Fehler zu unterdrücken und das Projekt weiter arbeiten zu lassen?
Gern hänge ich euch das Projekt mal an.
Für Tips in jede Richtung bin ich dankbar.
Ich muß zu dem VB Code sagen das ich vorher noch nie VB programmiert habe.. Smile) was man wahrscheinlich auch sieht..
Also bitte Nachsicht wenn etwas umständlich programmiert wurde.
Ihr könnt mit STRG-T und STRG-U zwischen Vollbild und Normal hin und herschalten.
Leider bleibt beim Vollbild die oberste Zeile und die unterste mit den Reitern stehen. Dies war bei Excel 2003 nicht so, sondern erst nach dem Update auf 2007, vielleicht gibt auch hier eine Lösung von einem User.
Vielen Dank das ihr euch die Zeit genommen habt um mein Projekt zu verstehen.
Wie gesagt über Tips bin ich dankbar.
Hier ist das Projekt zu finden:
www.jmocki.de/bde.zip
Schönen Feiertag wünsch ich euch noch.
Grüße
Jörg