Visual Basic - Leer una celda de Excel...

Life is soft - evento anual de software empresarial
 
Vista:

Leer una celda de Excel...

Publicado por Manuel (14 intervenciones) el 18/11/2004 15:48:55
Hola.
Necesito saber como obtener el contenido de una celda especifica de una hoja especifica de un archivo Excel.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer una celda de Excel...

Publicado por miguel (1042 intervenciones) el 18/11/2004 16:52:35
Debes de activar la Referencia, en Menu Proyecto-->Referencia se llama "Microsoft Excel 9.0 Object Library" debes de tener un Archivo Creado, en esta caso el archivo se llama Prueba.xls:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet

Sub Leer()
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Prueba.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet
With mySheet
I = 14 'Renglon donde quiero obtener los datos
Do While .Cells(I, 1) <> "" 'de la celda A
List1.AddItem Right("000" + CStr(.Cells(I, 1)), 3) + " " + .Cells(I, 2)'Le pasamos la informacion a un ListBox
I = I + 1
Loop
End With
xlApp.Quit
Set xlApp = Nothing
End Sub
Espero y te sirva saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar