Open an ExcelSpreadsheet 1

[luceze]

I have been trying to open a spreadsheet from access after exporting information from a query. I don't get any errors but it doesn't open. The OutputTo command works and opens excel but it erases the pivot tables that I have set up. I was wondering if anyone could look at my code and see what is wrong. (I have the excel 9.0 references)



Private Sub Command0_Click()
Dim XL As Excel.Application
Set XL = New Excel.Application
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BySchoolReport", "c:\BSS\AdditionalDescriptions.xls"
XL.Workbooks.Open "C:\BSS\AdditionalDescriptions.xls"
End Sub

Oh yeah I have Excel and Access 2000 on a WINNT machine.

 

[cew657]

Try the following:

Private Sub Command0_Click()

Dim XL As New Excel.Application

DoCmd.TransferSpreadsheet acExport, DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BySchoolReport", "c:\BSS\AdditionalDescriptions.xls",False
Set XLBook = GetObject("c:\BSS\AdditionalDescriptions.xls")
Set XL = appXLBook.Parent

XL.Workbooks.Open "c:\BSS\AdditionalDescriptions.xls"
XL.Visible = True

End Sub

HTH

cew657

 

[luceze]

That seems to work thanks.

 

[cew657]

You're welcome.

cew657