We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub IsSalesOrderDownloadTemplateOpen() Dim I As Integer Dim bIsOpened For I = 1 To Application.Workbooks.Count If (Application.Workbooks(I).Name = "SALESORDERDOWNLOAD.XML" _ And Application.Workbooks(I).Path = "C:\_SAP\Extracts\SalesOrd") Then bIsOpened = True Exit For End If Next I ' For i = 1 To Application.Workbooks.Count ' bIsOpened = bIsOpened Or (Application.Workbooks(i).Name = "SALESORDERDOWNLOAD.XML" _ ' And Application.Workbooks(i).Path = "C:\_SAP\Extracts\SalesOrd") ' Next i If bIsOpened Then MsgBox "Target save file is open, Closing file so process can use it.", vbOKOnly + vbInformation, "Cannot have: C:\_SAP\EXTRACTS\SALESORD\SALESORDERDOWNLOAD.xml open and run this process. Close it and try again." Application.DisplayAlerts = False Windows("SALESORDERDOWNLOAD.XML").Activate ActiveWorkbook.Close bIsOpened = False Application.DisplayAlerts = True GoTo 100 'Removed Exit Sub Else GoTo 100 End If 100 'Continue knowing that file is not open. End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.