opening worksheet from VB
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 |
opening worksheet from VB
Thanks,
It looks like I've resolved it by using MyXL as Object and API functions from the help file for GetObject Alex Dim MyXL As Object ' Variable to hold reference ' to Microsoft Excel. Dim xlSheet As Excel.Worksheet MyXL.Application.Visible = True MyXL.Parent.Windows(1).Visible = True Set xlSheet = MyXL.Worksheets(strNumber) xlSheet.Activate DoCmd.SetWarnings True MyXL.Application.DisplayAlerts = True MyXL.Application.AskToUpdateLinks = True MyXL.Application.Visible = True xlSheet.Visible = xlSheetVisible -----Original Message----- 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 . |
All times are GMT +1. The time now is 07:24 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com