Ver Mensaje Individual
  #12 (permalink)  
Antiguo 24/05/2011, 12:50
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 6 meses
Puntos: 47
Respuesta: de Excel a msflexgrid

El TASK MANAGER de windows, clic derecho en la barra de tareas...
Probé tu CODE, te faltan dos cosas:

• La rutina del DESCARGAR
• El Evento CLIC del COMMAND, sin esto no te funcionará

Código vb:
Ver original
  1. Private Sub Descargar()
  2.     On Local Error Resume Next
  3.     Set obj_Workbook = Nothing
  4.     Set obj_Excel = Nothing
  5.     Set obj_Worksheet = Nothing
  6.     Me.MousePointer = vbDefault
  7. End Sub
  8. ' ----------------------------------------------------------------------------------
  9. ' \\ -- Botón para leer los datos del libro e importarlos al Grid
  10. ' ----------------------------------------------------------------------------------
  11. Private Sub Command1_Click()
  12.     Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid1, 20, 5, "Export")
  13. End Sub

Asegurate de poner la RUTA correcta a tu archivo y el NOMBRE de la hoja en esta linea:

• Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid1, 20, 5, "Export")

Despues todo esta al 100%