Como leer archivo excel desde visual basic
Necesito saber como puedo acceder a un archivo excel de una columna y N filas y asi poder acceder a una celda determinada para obtener el valor, o elegir un rango de celdas y obtener de ellas solo las mayores que cero.
desde ya gracias...
desde ya gracias...
necesito hace run sistema en visual basic que se este alimentando de registros de hojas de excel y quiero saber como se leeria y se anexaria a mi base en visual basic en tiempo de ejecucion esos registros en excel
en este link http://www.networksoftware-latam.com hemos puesto un completo manual de Visual Basic secci贸n por secci贸n, esperamos sea de ayuda.
Hola amigos necesito su ayuda:
deseo leer un archivo excel y cargar los datos del archivo (las coumnas) en una tabla de access.
gracias.
deseo leer un archivo excel y cargar los datos del archivo (las coumnas) en una tabla de access.
gracias.
Mira este link
http://www.programacion.com/foros/32/msg/47426/
Saludos
sdemingo
http://www.programacion.com/foros/32/msg/47426/
Saludos
sdemingo
mira no se si sera el mejor codigo para esto pero al menos a mi me he permitido leer datos desde excel para pasarlos a visual basic y asi trabajar con ellos, aca va el "codigo" que utilice.
*********************
Option Explicit
Dim xl As Object
-----------------------------
Private Sub Command1_Click()
Dim ruta As Variant
Set xl = CreateObject("Excel.Application")
ruta = App.Path & "anexos.xls"
xl.Application.Workbooks.Open ruta
xl.Application.Visible = False
'Text1 = xl.Application.Cells(f, c).Value
Text1 = xl.Application.Cells(1, 1).Value
Text2 = xl.Application.Cells(1, 2).Value
Set xl = Nothing
End Sub
*****************
hasta aca! bien espero que te sirva, saludos ;)
*********************
Option Explicit
Dim xl As Object
-----------------------------
Private Sub Command1_Click()
Dim ruta As Variant
Set xl = CreateObject("Excel.Application")
ruta = App.Path & "anexos.xls"
xl.Application.Workbooks.Open ruta
xl.Application.Visible = False
'Text1 = xl.Application.Cells(f, c).Value
Text1 = xl.Application.Cells(1, 1).Value
Text2 = xl.Application.Cells(1, 2).Value
Set xl = Nothing
End Sub
*****************
hasta aca! bien espero que te sirva, saludos ;)