escudero
17 de Enero del 2003

Necesito operar con datos de excel desde un formulario hecho con vb6

pako
17 de Enero del 2003

Es un ejemplillo q tenia a mano....
te puede servir al menos pa iniciarte...
si necesitas mas puedo buscar codigo para cartgar una hoja excel, como una tabla, y operar con ella como quieras

Private Sub CabExcel(ByRef cFile As String)
Dim wkbObj As Workbook

Set wkbObj = GetObject(cFile)
If Err.Number <> 0 Then
MsgBox "Error: " & Err.Number & vbCr & Err.Description, vbExclamation + vbOKOnly, "Atención"
Err.Clear
Set wkbObj = Nothing
Exit Sub
End If
i = 1
Do
Me.List1.AddItem wkbObj.Worksheets(1).Cells(i).Value
i = i + 1
Loop While wkbObj.Worksheets(1).Cells(i).Value <> ""
wkbObj.Close
Set wkbObj = Nothing