MsAccess data porting into Excel

[Guest]

Hi

I have a MSAccess form in which on the click of a button I wish to export
certain fields in a subform into MSExcel. How do I proceed with that ? I have
this code automatically built up. but what all should I add to export
certain fields of data into excel sheet and view excel sheet.

Private Sub Command92_Click()
On Error GoTo Err_Command92_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True

Exit_Command92_Click:
Exit Sub

Err_Command92_Click:
MsgBox Err.Description
Resume Exit_Command92_Click

End Sub


Thanks in advance
Madhuri

 

[Guest]

This post was replied on Export/Import discussion forum

Madhuri