Office: Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

terryjak · 18. November 2008

Hallo,

mit folgendem code kann ich prüfen, ob eine bestimme Datei bereits geöffnet ist:

Code:

Function IsFIleOpen(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Err = 0 And Not wkb Is Nothing Then
IsFileOpen = True
End If
On Error GoTo 0
End Function

Sub Prüfung()
Dim sFile As String
sFile = "Gesuchte Datei 123.xls"
If IsFileOpen(sFile) Then
MsgBox "Geöffnet"
Else
MsgBox "Nicht geöffnet"
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Möchte dies so abwandeln, da0 ich prüfen kann, ob irgendeine Datei geöffnet ist, deren Namen "Gesuchte Datei ___.xls" ist (also z.B. "Gesuchte Datei 123.xls" oder "Gesuchte Datei 456.xls" oder "Gesuchte Datei abc.xls" etc...).
Hab den code folgendermaßen abgewandelt, aber es funktioniert nicht (Antwort MsgBox ist immer "Nicht geöffnet"):

Code:

Function IsFIleOpen(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Err = 0 And Not wkb Is Nothing Then
IsFileOpen = True
End If
On Error GoTo 0
End Function

Sub Prüfung()
Dim sFile As String
sFile = "Gesuchte Datei" & "*.xls"
If IsFileOpen(sFile) Then
MsgBox "Geöffnet"
Else
MsgBox "Nicht geöffnet"
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann es funktionieren?

Gruss Udo

:)

jinx · 19. November 2008

Moin, Udo,

entweder Wildcards (* für Teile, ? für einzelne Zeichen) oder aber Instr bei der Prüfung der Dateinamen verwenden...

arminho · 19. November 2008

Probiers mal so:
Code:

Sub ProofOpenFiles()
Dim wbName(20) As String
wbCount = Workbooks.Count
For x = 1 To wbCount
wbName(x) = Workbooks(x).FullName
Next
For x = 1 To wbCount
If InStr(1, wbName(x), "Gesuchte Datei", vbTextCompare) > 0 Then
MsgBox "Datei ist geöffnet!"
Exit Sub
End If
Next
MsgBox "Datei ist nicht geöffnet!"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meines Wissens funktionieren Wildcards da nicht (kann mich auch irren). Aber die Angabe ".xls" ist ohnehin trivial, da nur Workbooks geöffnet werden...

terryjak · 19. November 2008

Hi,
Vielen Dank euch beiden!

arminho: der code funktioniert wunderbar - hab ich so übernommen.
jinx: mit wildcards * hatte ich es ja probiert, funktionierte aber nicht (entweder funktionieren wildcards halt grundsätzlich da nicht oder ich habs falsch umgesetzt...). 'instr' sagt mir nichts...

Gruss Udo

arminho · 20. November 2008

Hi terryjak,

freut mich, dass es geklappt hat.

Instr() siehst du oben auch in meiner Prozedur. Mit dieser Funktion kann man einen Teil-Text in einem Text suchen. Wenn der Teil-Text gefunden wird, ist Instr() >0 (bzw. gleich der Position, an der der Teil-Text gefunden wird), wird nichts gefunden so ist das Ergebnis =0.

terryjak · 20. November 2008

Danke, Armin!

Office: Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen - Similar Threads - Prüfung Datei geöffnet

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Mehrfache Wenn Prüfung

Berechnung abhängig von unterschiedlichen Inventurdaten je Standort

Prüfung ob Wert in Spalte mit Wert aus bestimmtem Bereich übereinstimmt

Prüfung ob Datei bereits geöffnet

Prüfung ob Spalte leer

Prüfung auf Tabellenwert erfolgt nicht