14.12.2018, 10:39
Hallo Forum,
Ich lasse mit das öffnen, schliessen einer Arbeitsmappe mit diesm Code in eine Log.txt schreiben,
das funktioniert leider nur bei meinem PC bei meinen Kollegen tritt die Meldung,
Laufzeitfehler '75':
Fehler beim Zugriff auf Pfad/Datei
im folgendem Code ist dann diese Zeile gelb markiert.
auf. Meine Kollegen haben die selben Rechte auf den Ordner und die Dateien wie ich.
Woran könnte das noch liegen?
Besten Dank im Voraus
Omron2003
Ich lasse mit das öffnen, schliessen einer Arbeitsmappe mit diesm Code in eine Log.txt schreiben,
das funktioniert leider nur bei meinem PC bei meinen Kollegen tritt die Meldung,
Laufzeitfehler '75':
Fehler beim Zugriff auf Pfad/Datei
im folgendem Code ist dann diese Zeile gelb markiert.
Code:
Open strLogFile For Output As #1 ' Diese Zeile ist nach dem Laufzeitfehler 75 gelb markiert....auf. Meine Kollegen haben die selben Rechte auf den Ordner und die Dateien wie ich.
Woran könnte das noch liegen?
Besten Dank im Voraus
Omron2003
Code:
Public Sub logFile(ByVal Action As String, Optional Sheet As String, Optional ByVal Target As String, Optional ByVal Value As String)
Dim strLogFile As String, strTmp As String, strOld As String
Dim strUser As String * 12
Dim strAction As String * 15
Dim strSh As String * 12
Dim strAddr As String * 12
Const strSep As String = ", "
'strLogFile = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name & "_log.txt"
'oder
Application.DisplayAlerts = False
'strLogFile = "I:\Produktion Druckplatten\Produktion\Urlaubsplan\Anmeldung\log.txt"
strLogFile = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name & "_log.txt"
strTmp = Format(Now, "dd.MM.yyyy hh:mm:ss") & strSep
strUser = Environ("USERNAME")
strTmp = strTmp & strUser & strSep
strAction = Action
strTmp = strTmp & strAction & strSep
If Len(Sheet) Then strSh = Sheet: strTmp = strTmp & strSh & strSep
If Len(Target) Then strAddr = Target: strTmp = strTmp & strAddr & strSep
If Len(Value) Then strTmp = strTmp & Left(Value, 1024)
If Right(strTmp, Len(strSep)) = strSep Then strTmp = Left(strTmp, Len(strTmp) - Len(strSep))
Open strLogFile For Binary As #1
strOld = Space$(LOF(1))
Get #1, , strOld
Close #1
strTmp = strTmp & vbCrLf & strOld
Open strLogFile For Output As #1 ' Diese Zeile ist nach dem Laufzeitfehler 75 gelb markiert....
Print #1, strTmp
Close #1
Application.DisplayAlerts = True
End Sub