[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