inma
04 de Septiembre del 2003

Hola a todos !!!!
no se como acceder a una hoja de excel para poder tomar datos de ella.

¿me podeis ayudar???

gracias

txola
04 de Septiembre del 2003

Hola Inma,

Te paso el código que a mí me dieron:

Dim MiAplicacion As Excel.Application
Dim MiLibro As Excel.Workbook
Dim MiHoja As Excel.WorkSheet

Set MiAplicacion=New Excel.Application
Set MiLibro=MiAplication.Workbooks.Open(App.Path & "" &"nombrefichero.xls",False,False)
Set MiHoja=MiLibro.Sheets.Item("Hoja1")


MiHoja.Cells(1,1)="texto de la fila1, columna 1"
MiHoja.Cells(1,2)="texto de la fila1, columna 2"

...

MiLibro.Save
MiAplicacion.Workbooks.Close
MiAplicacion.Quit
Set MiAplicacion=Nothing

Yo tengo problemas a la hora de salvar el archivo. A veces me dice que el archivo de excel es de sólo lectura y me crea otro archivo fuera de la carpeta. He intentado solucionarlo pero todavía no lo he conseguido. Si consiguieras alguna información acerca de esto, por favor mándamelo.

Espero que te sirva algo