[AccessD] Excel Automation Problem - spreadsheet is hidden

Mark Simms marksimms at verizon.net
Fri Apr 16 14:10:16 CDT 2010


Dunno....
For an existing book or even a new book, the default action is to make it
visible.

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Rocky Smolin
> Sent: Friday, April 16, 2010 12:51 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Excel Automation Problem - spreadsheet
> is hidden
>
> Mark:
>
> Thanks so much.  That worked.  But why?
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark Simms
> Sent: Friday, April 16, 2010 7:22 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Excel Automation Problem - spreadsheet
> is hidden
>
> xlApp.Windows(1).Visible = True
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
> > Smolin
> > Sent: Thursday, April 15, 2010 7:39 PM
> > To: 'Access Developers discussion and problem solving'
> > Subject: Re: [AccessD] Excel Automation Problem - spreadsheet is
> > hidden
> >
> > A.D.:
> >
> > I didn't, but I put it there:
> >
> >     Set xlBook = GetObject(Me.txtSpreadsheet)
> >     Set xlApp = xlBook.Parent
> >     xlApp.Visible = True
> >
> > And Excel is now visible during the export but the
> worksheets are not
> > - and the workbook is hidden when I open it in Excel.
> >  Any other suggestions?
> >
> > TIA
> >
> > Rocky Smolin
> > Beach Access Software
> > 858-259-4334
> > www.e-z-mrp.com
> > www.bchacc.com
> >
> >
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> A.D. Tejpal
> > Sent: Thursday, April 15, 2010 10:28 AM
> > To: Access Developers discussion and problem solving
> > Cc: A.D. Tejpal
> > Subject: Re: [AccessD] Excel Automation Problem - spreadsheet is
> > hidden
> >
> > Rocky,
> >
> >     It is presumed that after setting the object variable xlApp to
> > excel application, you have the following statement:
> >
> >     xlApp.Visible = True
> >
> > Best wishes,
> > A.D. Tejpal
> > ------------
> >
> >   ----- Original Message -----
> >   From: Heenan, Lambert
> >   To: Access Developers discussion and problem solving
> >   Sent: Thursday, April 15, 2010 18:43
> >   Subject: Re: [AccessD] Excel Automation Problem - spreadsheet is
> > hidden
> >
> >
> >   I honestly don't know but it might be worth a try.
> >
> >   Lambert
> >
> >   -----Original Message-----
> >   From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
> > Smolin
> >   Sent: Wednesday, April 14, 2010 1:26 PM
> >   To: 'Access Developers discussion and problem solving'
> >   Subject: Re: [AccessD] Excel Automation Problem - spreadsheet is
> > hidden
> >
> >   Do you think that will make a difference in the hidden problem?
> >
> >   Rocky
> >
> >
> >   -----Original Message-----
> >   From: accessd-bounces at databaseadvisors.com
> >   [mailto:accessd-bounces at databaseadvisors.com] On Behalf
> Of Heenan,
> > Lambert
> >   Sent: Tuesday, April 13, 2010 5:14 PM
> >   To: Access Developers discussion and problem solving
> >   Subject: Re: [AccessD] Excel Automation Problem - spreadsheet is
> > hidden
> >
> >   I open workbooks a quite different way. The essence of it is...
> >
> >   Function Excel_OpenWorkBookHidden(Path As String, _
> >   Optional UpdateLinks As Boolean = False, _
> >   Optional Password As String = "") As Excel.Application
> >
> >   Dim xlApp As Excel.Application
> >
> >   If IsExcelRunning() Then
> >   Set xlApp = GetObject(, "Excel.Application")
> >   Else
> >   Do
> >   Set xlApp = CreateObject("Excel.Application")
> >   Loop Until IsExcelRunning()
> >   End If
> >
> >   xlApp.Workbooks.Open Path, UpdateLinks, , , Password
> >   Set Excel_OpenWorkBookHidden = xlApp
> >   End Function
> >
> >
> >   And the helper function is
> >
> >   Function IsExcelRunning() As Boolean
> >       Dim xlApp As Excel.Application
> >       On Error Resume Next
> >       Set xlApp = GetObject(, "Excel.Application")
> >       IsExcelRunning = (Err.Number = 0)
> >       Set xlApp = Nothing
> >       Err.Clear
> >   End Function
> >
> >   So in my client code I declare an Excel.Application object...
> >
> >   Dim xlApp as Excel.Application
> >
> >   Then I set it with
> >
> >   Set xlApp = Excel_OpenWorkBookHidden(strSomePath)
> >
> >   And I access the worksheets with
> >
> >   Dim xlWs as Excel.Worksheet
> >
> >   Set xlWs = xlApp.Worksheets(1)
> >
> >   Notice that the client code does not even use a workbook object.
> > I've not had any serious trouble with that, and no issues
> with hidden
> > worksheets.
> >
> >   Lambert
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






More information about the AccessD mailing list