Visual Basic - como esxtraer datos de excel a VB

Life is soft - evento anual de software empresarial
 
Vista:

como esxtraer datos de excel a VB

Publicado por Jaime Flores (1 intervención) el 25/08/2005 19:28:39
soy nuevo en esto de la programacion y me gustaria mucho recibir ayuda de ustedes que tienen mas experiencia en esto.
tengo que hacer un programa escolar de un presupuesto anual que saque los datos de excel y me los mande a Basic y no tengo idea de como hacerlo. pudieran mandarme un ejemplo???
les agradesco de antemano su cooperacion
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:como esxtraer datos de excel a VB

Publicado por Gustavo (181 intervenciones) el 26/08/2005 00:49:49
Hola amigo primero tienes q abrir tu hoja de exel de donde vas a descargar los datos requeridos OK, bien, hecho esto lo unico q debes hacer es igualar como si fuece una variable OK =) mucha suerte si no te quedo claro ponte en contacto conmigo OK

text1.text = Hoja_xls("celda donde estael dato")
text2.text = Hoja_xls("celda donde esta el dato")
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

RE:como esxtraer datos de excel a VB

Publicado por miguel (1042 intervenciones) el 26/08/2005 17:25:50
Ejemplo, tomo los datos de dos celdas y los inserto en listbox:
'Debes de Activar la Referencia
'Microsoft Excel 9.0 Object Library (office 2000-->9.0)
'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
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Prueba.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet 'Activo la 1ra. Hoja
With mySheet
I = 14 'Renglon donde quiero obtener los datos
Do While .Cells(I, 1) <> ""
List1.AddItem Right("000" + CStr(.Cells(I, 1)), 3) + " " + .Cells(I, 2)
I = I + 1
Loop
End With
xlApp.Quit
Set xlApp = Nothing

Para que lo entiendas mejor te envío el ejemplo a tu correo.
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