Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|VBA to look in every sheet and||2||23|
|Slight Modification to Macro||2||15|
|Excel 2003 Conditional Formatting for Jan 1||3||13|
|In Excel 2007, how do I need to correct this ampersand formula so it works?||2||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!