Importar Datos desde Excel

[Sponsored links]

[Mello]

Saludos,
Desearia saber si me pueden ayudar a implementar un algoritmo que me permita leer datos de una tabla en excel y mostrarlos en una grilla cualquiera en visual basic, en un datagrid, o listview o cualquiera, pero necesito traerlos a pantalla.

Gracias!!!

[pata_de_jaguar]

debes vincularte a la libreria MS office objects para trabajar con ello, pero si mejor usa MDB..

[piyo2004]

Primero debes pedir o establecer la ruta y el nombre del archivo que vas a traer; luego abrir un objeto de tipo aplicación (Set AppExcel= CreateObject("Excel.Application"); una vez tengas creado el objeto debes abrir el archivo (Set oSheet = AppExcel.Workbooks.Open(Nombre_del_archivo) y luego puedes obtener los valores utilizan do la propiedad Range (cRadica = wkSheet.Range("B8").Value).

Espero te sirva de algo!!!

[Nemmessis]

ELO AQUI ¡¡¡¡
En El formulario .............
Option Explicit
Dim ObjExcel As cExcel
Dim Cedula As String
Dim codigo As String
Dim reprecen As String

Private Sub cmdaceptar_Click()
Dim Archivo As String
Dim ObjExcel As New cExcel
Dim item As ListItem

Dim i As Integer

ObjExcel.Abrir (TxtNomArchivo.Text)
If ObjExcel.Leer(1, 1) <> "CedVend" Then
MsgBox "Nombre de la Primer Columna Incorrecta debe de ser: CedVend"
Else
If ObjExcel.Leer(1, 2) <> "CodCli" Then
MsgBox "Nombre de la Segunda Columna Incorrecta debe de ser: CodCli"
Else
If ObjExcel.Leer(1, 3) <> "Representante" Then
MsgBox "Nombre de la Tercera Columna Incorrecta debe de ser: Representante"
Else
Archivo = ObjExcel.Leer(1, 2)
i = 2
Dim Cont As Byte
Dim Contador As Byte
Dim l As Byte

Me.MousePointer = vbHourglass
Do Until Trim(Archivo) = ""
lblmensaje.Enabled = True


Set item = lstdatos.ListItems.Add(, , ObjExcel.Leer(i, 1))
item.SubItems(1) = ObjExcel.Leer(i, 2)
item.SubItems(2) = ObjExcel.Leer(i, 3)
lblmensaje.Visible = True

i = i + 1

Archivo = ObjExcel.Leer(i, 3)

lblmensaje.Enabled = False

Loop

Me.MousePointer = vbNormal
ObjExcel.Cerrar
TxtNomArchivo.Text = ""

End If
End If
End If
End Sub
-------------------------------------------------------------------------------
En la clase....

Option Explicit

Public OBJArchivoExcel As Object
Public OBJLibroExcel As Object

Public Enum eAlineacion
Ninguna = 0
Izquierda = 2
Centrado = 3
Derecha = 4
End Enum
' Abrir
Public Sub Abrir(strRuta As String)
On Error GoTo errAbrir
Set OBJLibroExcel = OBJArchivoExcel.Workbooks.Open(strRuta)
Exit Sub
errAbrir:
MsgBox Err.Description
End Sub
'Leer
Public Function Leer(fila As Integer, Columna As Integer) As String
Dim Rango As String
Rango = LetraColumna(Columna) & fila
Leer = OBJLibroExcel.Worksheets(1).Range(Rango).Value
End Function
Private Sub Class_Initialize()
On Error GoTo ErrorExcel
Set OBJArchivoExcel = CreateObject("Excel.Application")
Exit Sub
ErrorExcel:
If Err.Number = 429 Then
MsgBox "No se encuentra ninguna version de Excel instalada" _
& Chr(13) & "Esta opcion no puede ser usada", vbCritical, "Exportación A Excel"
End If
End Sub

'Crea un Nuevo Libro de Excel
Public Sub NuevoLibro()
Set OBJLibroExcel = OBJArchivoExcel.Workbooks.Add
End Sub

'Guarda el archivo
Public Sub Guardar(STRRuta_Nombre As String)
On Error GoTo ErrGuardar
OBJLibroExcel.SaveAs STRRuta_Nombre
Exit Sub
ErrGuardar:
MsgBox "No se pudo Grabar el Informe " & STRRuta_Nombre & Chr(13) & "Verifique la Ruta", vbCritical, App.ProductName
Resume Next
End Sub

'Cierra Excel y la hoja creada
Public Sub Cerrar()
On Error Resume Next
OBJLibroExcel.Close
OBJArchivoExcel.Quit

Set OBJLibroExcel = Nothing
Set OBJArchivoExcel = Nothing
End Sub


Suerte y pulso..........................
Creo que esto te sirve....

[alejandrocc03]

Saludo, amigo tengo mucho problema para motrar datos desde excel a un
listview por favor ayudame si puedes enviarme un pequeño codigo en .vbp para
solucionar este detalle que me tiene verde... gracias espero tu repuesta....

[Nemmessis]

Saludo, amigo tengo mucho problema para motrar datos desde excel a un
listview por favor ayudame si puedes enviarme un pequeño codigo en .vbp para
solucionar este detalle que me tiene verde... gracias espero tu repuesta....

Viejo, le adjunto el código con el archivito de excel.
En este caso no sube nada a una DB, pero lo muestra en un LSTW.
Solamente adicionale el código para grabar a la DB y listo....

Suerte.