Sub Management_Accounts(item As Outlook.MailItem)
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
objExcel.Visible = True
If IsWorkBookOpen("K:\file.xlsm") Then
Else
objExcel.Workbooks.Open "K:\file.xlsm"
End If
objExcel.Run "Refresh_Single"
Set objExcel = Nothing
End Sub
Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function
Bookmarks