openning spreadsheet
Thanks a lot. I'm doing the checking whether the workbook
is opened. It's working good. But, if it's opened how can
I activate (open) another worksheet.
If logFileIsOpened = True Then '< checking working good
' < what should I do here to open another worksheet
without reopenning workbook
Else
'< It's working good
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlApp.DisplayAlerts = True
xlApp.Visible = True
xlApp.AskToUpdateLinks = True
End If
-----Original Message-----
Your button is executing
Set xlBook = xlApp.Workbooks.Open(strWorkbookName)
every time it is pressed. You need to check whether the
worbook is already open: if yes, don't open it otherwise
open it.
.
|