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
