Visual Basic - Grabar en excel 2000

hola alguien tiene un ejemplo de como grabar en excel 2000

carla espero que este codigo te sirva

Private Sub cmdExcel2_Click()
Dim objExcel As Object
Dim objLibro As Object
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
'Creamos una nuevo libro
Set objLibro = objExcel.WorkBooks.Add
'Guardamos el libro
objLibro.SaveAs App.Path & "\Prueba.xls"
objLibro.Close 'Cerramos el libro
objExcel.Quit
Set objLibro = Nothing
Set objExcel = Nothing
End Sub

realmente carlita te estoy respondien super apurado puesto quetengo que reunin en este momento pero si tienes una duda solo mandame un mail y vere si te puedo ayudar