Mark Simms
marksimms at verizon.net
Fri Apr 16 09:21:45 CDT 2010
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
>