Goedenmiddag
De formule IsWorkBookOpen() routineerd alleen maar onwaar ook als het betreffende bestand al open staat.
wie heeft er een idee wat er niet goed gaat
ik gebruik een MAC 2011 en Excel 2011
Bij voorbaat mijn dank
De formule IsWorkBookOpen() routineerd alleen maar onwaar ook als het betreffende bestand al open staat.
wie heeft er een idee wat er niet goed gaat
ik gebruik een MAC 2011 en Excel 2011
Bij voorbaat mijn dank
Code:
Sub IsHetWorkBookWelOpen()
Dim MyString As String
Dim xRet As Boolean
Range("AH1").Select
Selection.FormulaR1C1 = "=LEFT(CELL(""bestandsnaam""),SEARCH(""["",CELL(""bestandsnaam""),1)-1)&R[1]C[-32] &"".xlsm"""
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
MyString = Range("AH1")
On Error Resume Next
Workbooks.Open Filename:=MyString
xRet = IsWorkBookOpen(MyString)
If xRet Then
Range("AH2").Value = xRet
Else
Range("AH3").Value = xRet
Range("AH4").Value = MyString
End If
End Sub
Function IsWorkBookOpen(Name As String) As Boolean
Dim xWb As Workbook
On Error Resume Next
Set xWb = Application.Workbooks.Item(Name)
IsWorkBookOpen = (Not xWb Is Nothing)
End Function