Forum Discussion
murugans1011
11 years agoRegular Contributor
try using this......
function WorkbookOpen(WorkBookName)
dim app
Set app = sys.OleObject("Excel.Application")
WorkbookOpen = false
count = app.Workbooks.Count
For i = 1 to count
if (app.Workbooks.Item(i).Name = WorkBookName) then
WorkbookOpen = true
end if
Next
end function
sub Main
MyWorkbookName = "test.xlsx"
if (WorkbookOpen(MyWorkbookName)) then
Log.Message("The workbook is open")
else
Log.Message("The workbook is not open")
end if
end sub
function WorkbookOpen(WorkBookName)
dim app
Set app = sys.OleObject("Excel.Application")
WorkbookOpen = false
count = app.Workbooks.Count
For i = 1 to count
if (app.Workbooks.Item(i).Name = WorkBookName) then
WorkbookOpen = true
end if
Next
end function
sub Main
MyWorkbookName = "test.xlsx"
if (WorkbookOpen(MyWorkbookName)) then
Log.Message("The workbook is open")
else
Log.Message("The workbook is not open")
end if
end sub
Related Content
- 12 years agokirk_bottomley
- 3 years agoLarry_M
Recent Discussions
- 3 hours agoSubhraDas