2ter Versuch - Datei open - prüfen
30.06.2003 14:09:40
FrankyB
ich hatte diese Frage schon einaml gestellt - leider ohne Antwort.
Ich wage einen zweiten Versuch.
...unten aufgeführt habe ich ein Makro von Hans.
Das Makro ist ok, müßte es aber etwas verändern, mir fehlt jedoch die Kenntnis.
Das Makro prüft ob eine Datei bereits geöffnet ist. Sobald der User, der die Datei
in Benutzung hat, diese schließt, soll sie geöffnet werden.
Folgende Änderungen bräuchte ich:
- der Pfad der Datei steht in Tabelle1 Zelle A1
- das Makro soll eine bestimmte Zeit prüfen ob Datei bereits geöffnet ist (vielleicht 30 Sek), falls die
Datei dann noch nicht geschlossen wurde, soll eine MsgBox gezeigt werden "Datei kann nicht geöffnet werden etc..." - und - Prozedur kompl. abbrechen.
- falls in der Zeit die Datei geschlossen wurde, dann Meldung MsgBox "Datei ist frei etc..." (Datei soll aber nicht geöffnet werden!)
Zu schwierig oder zu aufwendig????
Ich bedanke mich im voraus...
Gruß Frank
Sub TestFileOpen()
Dim iOpen As Integer
Dim sFile As String
sFile = InputBox("Path and Filename:", , "c:\test\test.xls")
If sFile = "" Then Exit Sub
Do While TestOpen(sFile) = 1
Loop
Workbooks.Open sFile
End Sub
Private Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function