Visual Basic.NET - ayuda para importar datos excel a datagridview

 
Vista:
sin imagen de perfil

ayuda para importar datos excel a datagridview

Publicado por ROBERTA (14 intervenciones) el 07/08/2014 15:48:50
Hola a todos,
acabo de registrarme y necesito vuestra ayuda, porque ya me estoy volviendo loca.
Estoy intentando hacer un pequeño programa de gestión para el negocio de mi marido y me he atrancado en esto:
quiero cargar un archivo Excel .xlsx en un datagridview. El código que utilizo funciona super bien si tengo el archivo de Excel abierto, pero yo no quiero abrirlo, o mejor, si tengo que abrirlo, no quiero que sea visible.
¿Hay algún modo para abrir el archivo de Excel, cargar los datos en el datagridview y volver a cerrar Excel, todo desde código?
Y otra pregunta más: ¿Cómo guardo las modificas en el archivo que ya existe?
He buscado en fórum, blog y tutoriales en español e italiano, y he probado un monton de códigos, pero ninguno me sirve.
¿Alguien me ayuda, por favor?
Es lo ultimo que me queda pos hacer y ya puedo empezar a confeccionar el programa para testarlo.

Os dejo el código que utilizo para cargar los datos de Excel.

Function cargaExcel()

Dim dt As New DataTable

Try
Dim strconn As String
strconn = "Provider=Microsoft.Jet.Oledb.4.0; data source=" & My.Computer.FileSystem.CurrentDirectory & "\excel\presupuesto_" & TextIdPresupuesto.Text & ".xlsx ;Extended properties=""Excel 8.0;hdr=yes;imex=1"""
Dim mconn As New OleDbConnection(strconn)
Dim ad As New OleDbDataAdapter("Select * from [Hoja1$a1:C900]", mconn)
mconn.Open()
ad.Fill(dt)
mconn.Close()

Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try

Me.DataGridView2.DataSource = dt

With DataGridView2
.ColumnHeadersVisible = True
.RowHeadersVisible = False
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.Columns(0).Width = 100
.Columns(1).Width = 510
.Columns(2).Width = 100
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(0).Resizable = DataGridViewTriState.False
.Columns(1).Resizable = DataGridViewTriState.False
.Columns(2).Resizable = DataGridViewTriState.False
.AllowUserToResizeRows = False
.Columns(2).DefaultCellStyle.Format = "#,##0.00"
End With
Dim buttons As New DataGridViewButtonColumn()
With buttons
.Text = "Quitar"
.Width = 50
.UseColumnTextForButtonValue = True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate.Style.BackColor = Color.Honeydew
.DisplayIndex = 3

End With
DataGridView2.Columns.Add(buttons)
DataGridView2.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End function


Me olvidaba, utilizo visual studio 2010 y tengo Excel 2010

Muchas gracias de antemano.
Roberta
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

ayuda para importar datos excel a datagridview

Publicado por omar (128 intervenciones) el 07/08/2014 16:31:16
enviame un email y te envio la manera de exportarlo
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