paozam
22 de Octubre del 2004

Hola, alguien sabe como abrir un archivo de excel en un formulario de Visual Basic y sacar los campos de las celdas,alguien podria decirme como, gracias

nagash
22 de Octubre del 2004

a mi me prestaro este ejemplo espero que te sirva
Private Sub Command1_Click()

generaHoja
End

End Sub

Sub generaHoja()

Dim e As Object
Dim ruta As String

On Error GoTo error1

Set e = CreateObject("Excel.Application")
ruta = App.Path & "\ejemplo.xls"
e.Workbooks.Open ruta
e.Visible = True

e.ActiveSheet.Range("A1:B1").Select
e.ActiveCell = "Hola Caracola"

e.ActiveWorkbook.Save
e.Application.Quit
Set e = Nothing

Exit Sub

\'ERROR
error1:
MsgBox Err.Description
e.Application.Quit
Set e = Nothing

End Sub

Private Sub Command2_Click()

leeHoja
End

End Sub

Sub leeHoja()

Dim e As Object
Dim ruta As String

On Error GoTo error1

Set e = CreateObject("Excel.Application")
ruta = App.Path & "\ejemplo.xls"
e.Workbooks.Open ruta
e.Visible = True

e.ActiveSheet.Range("A1:B1").Select
MsgBox e.ActiveCell

e.ActiveWorkbook.Save
e.Application.Quit
Set e = Nothing

Exit Sub

\'ERROR
error1:
MsgBox Err.Description
e.Application.Quit
Set e = Nothing

End Sub