Opening Excel worksheet from Access

[mfhoward2]

I have an Access application that queries a seperate database and then transfers this data to Excel for computing and generating charts, ect and then storing the results historically (in Excel). I'd like to be able to put a command button on my Access user form that will open the desired Excel worksheet to display historical data without running through the entire query process. I have the button in place, but am missing something in the code. Currently I can get Excel to open, but can't get the sheet to activate. Is there a simple way around this ? Any help would be greatly appreciated.

Thanks,

Mike

[ This Message was edited by: mfhoward2 on 2002-05-15 11:17 ]

[dk]

have an Access application that queries a seperate database and then transfers this data to Excel for computing and generating charts, ect and then storing the results historically (in Excel). I'd like to be able to put a command button on my Access user form that will open the desired Excel worksheet to display historical data without running through the entire query process. I have the button in place, but am missing something in the code. Currently I can get Excel to open, but can't get the sheet to activate. Is there a simple way around this ? Any help would be greatly appreciated.

Hi,

This code opens a file in Excel and then activates the workbook. If this isn't what you're after then it may be worth posting your code.

Regards,
Dan

Private Sub Command0_Click()
Dim xlApp As Object, xlWb As Object

On Error Resume Next
Set xlApp = GetObject(, "EXCEL.APPLICATION") 'Try and get a running instance of Excel
If Err.Number <> 0 Then 'Excel isn't running
    Set xlApp = CreateObject("EXCEL.APPLICATION")
End If

Set xlWb = xlApp.workbooks.Open("C:tempdan.xls")

xlApp.Visible = True

End Sub

[mfhoward2]

Thanks Dan !! That did the trick. I think I was just failing to set the app as "visible". Greatly appreciate the help !

Best Regards,

Mike