Martell
05 de Diciembre del 2003

Hola, Alguien me puede decir o indicar donde puedo encontrar informacion
Encontre un codigo que permitia abrir archvs excel
con la instruccion

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

y todo bien porque lo copie completo,
pero cuando quiero crear un nuevo proyecto
y hacer lo mismo no puedo y quede plop
si alguien me puede ayudar se lo agradeceria

Marcelo.

matamala
05 de Diciembre del 2003

Martell con este codigo abre el archivo que pongas en la linea esta:Set libro = loexcel.workbooks.open("C:Documents and SettingsMANUMis documentosCocinaLibro1.xls")


Private Sub Command1_Click()
Set loexcel = CreateObject("Excel.Application")
' Añadimos un libro a esta porquería...
'Set libro = loexcel.Workbooks.Open(App.Path & "TESIS123.xls")
Set libro = loexcel.workbooks.open("C:Documents and SettingsMANUMis documentosCocinaLibro1.xls")
' No permito que se vea Excel...
loexcel.Visible = True ' True pra que se vea el archivo
End Sub

con este abres el archivo y toma los datos del la celda que introduzcas aqui:
vCupon.Text = loexcel.workbooks(1).workSheets(4).Range("C2").Value 'con este cojemos el dato que hay en excel


Private Sub Command1_Click()
Set loexcel = CreateObject("Excel.Application")
' Añadimos un libro a esta porquería...
'Set libro = loexcel.Workbooks.Open(App.Path & "TESIS123.xls")
Set libro = loexcel.workbooks.open("C:Documents and SettingsMANUMis documentosCocinaLibro1.xls")
' No permito que se vea Excel...
loexcel.Visible = False ' True pra que se vea el archivo

'Coger datos
vCupon.Text = loexcel.workbooks(1).workSheets(4).Range("C2").Value 'con este cojemos el dato que hay en excel
'loexcel.workbooks(1).workSheets(4).Range("C2").Value = vCupon.Text ' con este enviamos a excel el dato del textbox de la aplicación
'workSheets(4) numero hoja excel
'Range("C2") Celda
End Sub

espero averte ayudado.
PD:de pequeño no me entraban las letras ni a puñetazos y ahora de mayor hasta por debajo de la puerta.

Martell
05 de Diciembre del 2003

Buscando un poco mas en la REd encontra la respuesta y es:
primero ir a Project-References y seleccionar
Microsoft Excel x.x object Library. Salu2..;-)