Abfragen ob Datei bereits geöffnet ist

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

wie heisst der Code, wenn ich abfragen will, ob ein workbook bereits geöffnet ist, wenn ja dann dieses nur aktivieren, wenn nein, dieses workbook öffnen.

Vielen Dank

Gruss Salvo

2

So geht´s

wie heisst der Code, wenn ich abfragen will, ob ein workbook
bereits geöffnet ist, wenn ja dann dieses nur aktivieren, wenn
nein, dieses workbook öffnen.

Das ist eine mögliche Lösung.
Probier mal, ob Du mit klar kommst:

Option Explicit
 
Sub Test()
 Call WorkbookAktivieren("C:\Temp\", "Test.xls")
 'Call WorkbookAktivieren(Range("B2").Value, Range("C2").Value)
End Sub 'Test
 
 
Sub WorkbookAktivieren(WBPfad As String, WBName As String)
'Kristian Zarse für Wer-Weiss-Was.de, 11.06.03
'Artikel: http://www.wer-weiss-was.de/cgi-bin/forum/showarticle.fpl?ArtikelID=1565698
Dim WB As String
 On Error Resume Next
 Workbooks(WBName).Activate
 If Err.Number 0 Then
 Err.Clear
 WB = InputBox("Zu ladende Datei:", "Datei öffnen", WBPfad & WBName)
 If WB "" Then
 Workbooks.Open Filename:=WB
 If Err.Number 0 Then
 Err.Clear
 MsgBox "Datei konnte nicht geöffnet werden!" & vbCr & vbCr & \_
 "(" & WB & ")", vbCritical, "Fehler"
 End If 'Err Open
 End If 'WB""
 End If 'Err Activate
 On Error GoTo 0
End Sub 'WorkbookAktivieren

Kristian