On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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.
|Formula returning #N/A||9||35|
|How do I combine these two formulas in one cell in Excel 2007 to get them to work?||4||33|
|Excel Pivot Table and column chart to display traffic by year||9||35|
|Display Excel gridlines when called from Access||7||19|