A
Alex
I'm opening Excel workbook from MS Access. The program
checks whether the file is opened. When the file is not
opened, it's working good enough. But, when it's opened,
after a user click Ok for macros and read-only, it appears
for a moment and disappears.
Could anybody advise anything?
Thanks
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim strFileName As String, _
logFileIsOpened As Boolean
strFileName = "Filename"
logFileIsOpend = False
Set xlApp = CreateObject("Excel.Application")
DoCmd.SetWarnings False
xlApp.DisplayAlerts = False
xlApp.AskToUpdateLinks = False
logFileIsOpened = FileLocked(strFileName)
If logFileIsOpened = True Then
Set xlBook = GetObject(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlBook.Application.DisplayAlerts = True
xlBook.Application.AskToUpdateLinks = True
xlBook.Application.Visible = True
xlSheet.Visible = xlSheetVisible
Else
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlApp.DisplayAlerts = True
xlApp.AskToUpdateLinks = True
xlApp.Visible = True
xlSheet.Visible = xlSheetVisible
End If
checks whether the file is opened. When the file is not
opened, it's working good enough. But, when it's opened,
after a user click Ok for macros and read-only, it appears
for a moment and disappears.
Could anybody advise anything?
Thanks
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim strFileName As String, _
logFileIsOpened As Boolean
strFileName = "Filename"
logFileIsOpend = False
Set xlApp = CreateObject("Excel.Application")
DoCmd.SetWarnings False
xlApp.DisplayAlerts = False
xlApp.AskToUpdateLinks = False
logFileIsOpened = FileLocked(strFileName)
If logFileIsOpened = True Then
Set xlBook = GetObject(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlBook.Application.DisplayAlerts = True
xlBook.Application.AskToUpdateLinks = True
xlBook.Application.Visible = True
xlSheet.Visible = xlSheetVisible
Else
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlApp.DisplayAlerts = True
xlApp.AskToUpdateLinks = True
xlApp.Visible = True
xlSheet.Visible = xlSheetVisible
End If