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
.
|