| Pregunta: | 17885 - USANDO VB6.0 COMO PUEDO MOSTRAR EN PANTALLA UN ARCHIVO EXCEL |
| Autor: | ivan infante |
| Hola, necesito desde una aplicación en VB 6.0 abrir un archivo de excel para editarlo y agregarle o corregirle datos para posteriormente hacer un proceso. He logrado cargar un archivo específico previamente indicado, pero no he logrado que en tiempo de ejecución abra cualquier archivo. Para esto he utilizado varios componentes tales como dbgrid y OLE. MUCHO AGRADECERE si alguien puede ayudarme. | |
| Respuesta: | Luis Fernando Melo Sevilla |
| Hola Primero Haga referencia a La Biblioteca de Objetos de Excel, usando las referencias de Visual Basic Segundo usa este codigo para abrir un archivo 'Inicializa Excel Sub OPEN_EXCEL(sfilename As String) On Error GoTo Err_Enviar Set xl = GetObject("Excel.Application") xl.Application.Workbooks.Open sfilename xl.Visible = True Exit_Enviar: Exit Sub Err_Enviar: If Err.Number = 432 Then Set xl = CreateObject("Excel.Application") Resume Next Else MsgBox Err.Description, vbOKOnly + vbCritical End If Resume Exit_Enviar End Sub 'Envia datos a una sessión de trabajo de Excel Sub ENVIAR_EXCEL(Valor As String, x As Integer, Y As Integer) xl.Worksheets(1).Cells(x, Y).Value = Valor End Sub ... espero te sirva si es lo que necesitabas | |