Exportar de VB 6 a Excel
Publicado por Adolfo (7 intervenciones) el 20/08/2010 19:51:06
Buenas tardes
Tengo un problema al exportar un campo determinado de un msflexgrid, me explico
Tengo abierta una hoja en Excel (Pepe) donde en la celda "C5" es para el nº de cliente
Con una macro ejecutado desde excel , crea el Msflexgrid ( partiendo de hoja excel (Clientes)
Me sale el formulario Msflexgid con la lista de todos los clientes (en VB 6)
Mi intención es que al pulsar el numero deseado del cliente en el Msflexgrid, me lo
ponga en la celda "C5" de Pepe, pero me da error
el codigo en vb es el siguente:
Private Sub MSFlexGrid1_Click()
Dim Fila As Integer
Fila = frmClientes.MSFlexGrid1.Row
Range("C5").Select
Range("C5").Value = frmClientes.MSFlexGrid1.TextMatrix(Fila, 0)
Unload Me
End Sub
en el frmClientes.MSFlexGrid1.TextMatrix(Fila, 0) tiene el valor del cliente seleccionado
Por favor, si me podeis ayudar os lo agradecería.
Muchas gracias, Adolfo
Tengo un problema al exportar un campo determinado de un msflexgrid, me explico
Tengo abierta una hoja en Excel (Pepe) donde en la celda "C5" es para el nº de cliente
Con una macro ejecutado desde excel , crea el Msflexgrid ( partiendo de hoja excel (Clientes)
Me sale el formulario Msflexgid con la lista de todos los clientes (en VB 6)
Mi intención es que al pulsar el numero deseado del cliente en el Msflexgrid, me lo
ponga en la celda "C5" de Pepe, pero me da error
el codigo en vb es el siguente:
Private Sub MSFlexGrid1_Click()
Dim Fila As Integer
Fila = frmClientes.MSFlexGrid1.Row
Range("C5").Select
Range("C5").Value = frmClientes.MSFlexGrid1.TextMatrix(Fila, 0)
Unload Me
End Sub
en el frmClientes.MSFlexGrid1.TextMatrix(Fila, 0) tiene el valor del cliente seleccionado
Por favor, si me podeis ayudar os lo agradecería.
Muchas gracias, Adolfo
Valora esta pregunta
0