WCM Forum - VBA - (Excel-)Dokument schon geöffnet....

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - VBA - (Excel-)Dokument schon geöffnet.... (http://www.wcm.at/forum/showthread.php?t=95214)

VBA - (Excel-)Dokument schon geöffnet....

Ich schreibe via VBA ein neues Excel Dokument.

Jetzt gebe ich dem User einen CommonDialog zu auswahl, wohin er es denn speichern möchte.
Natürlich kanns passieren, dass er ein schon vorhandenes Dokument überschreiben will, und dieses zum Speichern anklickt. Jedoch kanns natürlich auch passieren, dass genau dieses Dokument schon wer anderer (Netzwerk) geöffnet hat, bzw. der User selber.

Jetzt suche ich nach einer Möglichkeit um zu überprüfen ob ich auf dieses Dokument schreiben kann oder nicht. ;)

Hab schon ein wenig Google bemüht, aber es hat leider nocht nirgends hin geführt. :)

Hmm. ;)
Aus http://www.google.com/search?hl=de&i...ge%F6ffnet&lr= 2. Link

Zitat:

Hallo Thomas,

hier ein etwas anderer Lösungsansatz. Mit der nachstehenden Function kannst Du per Makro abfragen, ob eine bestimmte Datei bereits von einem anderen Anwender innerhalb eines Netzwerkes geöffnet ist und dann entsprechend reagieren.

Option Explicit
Function DateiIstFrei(sDateiname As String) As Boolean
Dim hFile As Integer
On Error Resume Next
hFile = FreeFile()
Open sDateiname For Random Access Read Lock Read Write As #hFile
If Err Then
DateiIstFrei = False
Else
DateiIstFrei = True
End If
Close #hFile
End Function

Sub Test()
Dim sDateiname As String
sDateiname = "C:\Temp\Mappe1.xls"
'DateiIstFrei-Function aufrufen
If DateiIstFrei(sDateiname) Then
Workbooks.Open FileName:= _
"C:\Temp\Mappe1.xls"
Else
MsgBox "Datei ist bereits in Gebrauch!"
End If
End Sub

Viel Erfolg wünscht
WernerB.

hth :D

Zitat:

Original geschrieben von flinx
Hmm. ;)
Aus http://www.google.com/search?hl=de&i...ge%F6ffnet&lr= 2. Link

hth :D

hmm, danke...

Ich hab auf englisch gesucht (hab mir gedacht da findet man mehr) und nix gefunden. ;)

Nochwas, das vielleicht helfen mag:

http://iworks.at/temp/xl1.png

http://iworks.at/temp/xl2.png

~