[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