Importar de excel a vb.net
Publicado por mario (15 intervenciones) el 07/09/2017 16:38:48
Hola, gracias de antemano, tengo una gran necesidad, tengo que pasar de excel a vb.net pero el inconveniente es que el archivo de excel tiene encabezados por lo tanto tengo que importar desde una fila específica hacia abajo hasta que encuentre una fila en blanco que indicaría el fin de las filas a importar hasta el momento tengo esto, funciona pero debido a que estoy mandando como parámetro el rango de celdas a importar, pero recordemos que los rangos pueden variar por eso necesito que importe de una fila hacia abajo, muchas gracias por su ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function importarExcel(ByVal ruta As String, ByVal hoja As String, ByVal rango As String)
Try
'declarando las variables
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim DtSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
'declarando variable de conexión
MyConnection = New System.Data.OleDb.OleDbConnection _
("provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source='" & ruta & "'; " & _
"Extended Properties='Excel 8.0;HDR=NO'")
'creando consulta para extraer contenido del archivo de excel y ejecutandola
MyCommand = New System.Data.OleDb.OleDbDataAdapter _
("select * from [" & hoja & "$" & rango & "]", MyConnection)
MyCommand.TableMappings.Add("Table", "TestTable")
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
'tabla.DataSet = DtSet.
'ubicando el resultado en el datagridview
dgvDatos.DataSource = DtSet.Tables(0)
'cerrando conexión
MyConnection.Close()
Catch ex As Exception
'imprimiendo mensaje de error
MsgBox(ex.ToString)
End Try
Return False
End Function
Valora esta pregunta
0
