log-Datei für Datei aus dem Netzwerk
04.05.2006 10:34:12
Tom
hoffe doch trotz des schönen Wetters hier Hilfe zu finden.
Ich habe folgendes Problem an dem ich echt verzweifel.
Ich habe eine Passwort geschützte Datei in einem Netzwerk auf einem der beiden Server liegen. Hierfür wollte ich eine einfache Log-Datei anlegen lassen, welche die Zugriffe durch Angabe des Benutzernamens, der Uhrzeit, Datum... protokolliert.
In einer anderen funktionert das wunderbar, nur nicht in dieser.
Ich habe folgende Makros eingetragen.
unter der Arbeitsmappe
Private Sub Workbook_Open()
Sheets("Übersicht").Activate
Range("H12").Select
StartPopup.Show
InTextdatei
End Sub
und in einem Modul
Sub InTextdatei()
Dim sTxt As String
Dim name As String
Dim vorname As String
Dim nachname As String
Dim PCName As String
Dim Zeit As String
Dim User As String
Dim Server As String * 2
name = Environ(16)
User = Environ(45)
PCName = Environ(21)
Zeit = Now
Server = Application.ThisWorkbook.Path
On Error GoTo ERRORHANDLER
If InStr(name, "=") Then
name = Right(name, Len(name) - InStr(name, "="))
vorname = Left(name, InStr(name, " "))
nachname = Right(name, Len(name) - InStr(name, " ") + 1)
End If
Open Server & "\\1-server\07 Kaufm. Abteilung\Statistik\logNK2006.txt" For Append As #1
sTxt = User & ";" & PCName & ";" & Now & ";" & name
sTxt = Now & ";" & Environ("Username") & ";" & Application.UserName
Print #1, sTxt
Close
Exit Sub
ERRORHANDLER:
MsgBox "Textdatei konnte nicht erstellt werden!"
End Sub
In der anderen Datei liegt der gleiche Code, nur das unter der Arbeitsmappe nur
Private Sub Workbook_Open()
InTextdatei
End Sub
steht und der Name der Txt-Datei anders lautet, aber im gleichen Verzeichnis liegt.
Also warum geht es nicht?
Das zweite Problem ist, das wenn von anderen PCs die Datei geöffnet wurde, immer die Meldung kam das die Txt-Datei nicht erstellt werden kann.
Keine Ahnung wie, aber irgendwie fehlt dann eine Angabe bezüglich des Netzwerkes.
Hoffe echt ich kann mit eurer Hilfe das Problem lösen.
MfG aus dem sonnigen Berlin
Tom