SoloCodigo

Hola amigos, quiero saber como pasar todos los datos que obtengo en el Msflexgrid a Excel mediante un Command button pero no logro tener exito.

He visto varios de los codigos que han puesto aqui pero ninguno me ha dado ideas para lograr mi objetivo. Si alguien puede ayudarme se lo agradecere.

Saludos

Muchas gracias Brroz. Me funciono al 100%. Muchas gracias por tu apoyo.
Saludos.

Ya lo logre Brroz.

Pero me gustaria que me lo abriera en una hoja de excel nueva, es decir que no exista, para que al momento de querer cerrarla me aparezca si deseo guardar los cambios y si le doy que si que me pregunte en que ruta quiero guardarlo.

Espero y me haya explicado.

Saludos.

Hola Brroz. Aplique los cambios que me dijiste y me aparece un error: el objeto no soporta este tipo de metodo, y no me abre excel.

El codigo esta asi:

Private Sub Command9_Click()
   
   On Error GoTo Err_XLS
   
   Dim objApp As Object
   Dim objWb As Object
   Dim objSh As Object
   Dim lngR As Long, lngC As Long
   
   Set objApp = CreateObject("Excel.Application")
   Set objWb = objApp.WorkBooks.Add
   Set objSh = objWb.ActiveSheet
   
   For lngR = 0 To tabla.Rows - 1
       For lngC = 0 To tabla.Cols - 1
           objSh.Cells(lngR + 1, lngC + 1) = _
           tabla.TextMatrix(lngR, lngC)
       Next lngC
   Next lngR
       
   objApp.Show
   
Exit_XLS:
   On Local Error Resume Next
   objApp.Close
   objApp.Quit
   Set objSh = Nothing
   Set objWb = Nothing
   Set objApp = Nothing
   Exit Sub

Err_XLS:
   MsgBox "(" & Err.Number & ") " & Err.Description, vbCritical, "Xls"
   Resume Exit_XLS
   

End Sub

Tambien lo probe quitandole el Exit_XLS y el Err_XLS y me sale lo mismo.

Espero y puedas ayudarme.

Saludos.

Hola rechy.

Disculpa el error... lo que deberías de poner en vez de objApp.Show es objApp.Visible = True. Debes de quitar también las líneas objApp.Close y objApp.Quit, pues excel se cerraría al ejecutarlas.
También estaría bien que añadieras objApp.UserControl = True.

Suerte.

 

hola rechy y bbroz, les cuento que estoy en el mismo problema pero tengo que recuperar una plantilla de excel y luego llenar los datos en ella, pero no me funciona, que estoy haciendo mal?, o es que debo cambiar algo en el codigo, lo unico que hice fue cambiar .add por .get y la ruta del archivo, pero me cambia las propiedades de mi objeto excel , y no entiendo por que...

hola Brroz, gracias  , ahora ya me ubico que tipo de objeto debe ser objSh, yo le puse objapp.open Fielename:= "Nombre archivo" en vez de getobject() y me ha funcionado muy bien, y tengo una pregunta mas, cuando ya grabe el archivo de Excel y salgo del programa, cuando quiero abrirlo de nuevo, me abre la ventana de Excel y aparece vacia, es decir solo los contornos, es que no he cerrado algo bien?, o deje abierto algun objeto, ya puse .saved=true pero sigue igual...

Hola de nuevo, te cuento que tengo la linea  objApp.Quit   en mi codigo, y el problema reside en que estoy abriendo una hoja de cálculo , la guardo con otro nombre y luego cierro Excel, pero cuando salgo del programa, la primera hoja sigue abierta... bueno, gracias por tu ayuda Brroz, seguimos en contacto.