importar y exportar a Excel : Visual Basic 2005

[moradazo]

Hola amigos a ver quien me puede ayudar.

Tengo un DataGridView1, ahi cargo lo que tengo en excel con un path fijo (Ej: C:\test.xls)

Tengo un botón para agregar filas al datagridview, todo bien hasta ahí

El problema es en el momento de exportar, me aseguro de cerrar la lectura del excel y cuando le doy me da muchos errores distintos, por ejemplo:

El índice no es válido. (Excepción de HRESULT: 0x8002000B (DISP_E_BADINDEX))
El formato no es válido, etc.

Lo que quiero realmente es salvar los datos que se agregan nuevos al mismo archivo de excel.

La referencia agregué la 11, la válida para Office 2003.

dgg es el DataGridView

Código vb:

Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms 
Imports System.IO
Imports System.Data.OleDb 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties = 'Excel 8.0'; Data Source=C:\prueba.xls;")
    Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM [Hoja1$]", MiConexion)
    Private MiDataSet As New DataSet()
    Private MiEnlazador As New BindingSource
 
    Private Sub Update_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update_Btn.Click
        Dim commandbuilder As New OleDb.OleDbCommandBuilder(Me.MiAdaptador) 
        MiConexion.Open()
        MiAdaptador.Fill(MiDataSet)
        MiEnlazador.DataSource = MiDataSet.Tables(0)
        Me.dgg.DataSource = MiEnlazador
    End Sub
    Private Sub agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles agregar_Btn.Click
        Try
            Dim nombre As DataRow
            nombre = MiDataSet.Tables(0).NewRow()
            nombre("Nombre") = TB_nombre.Text
            nombre("Teléfono") = TB_telefono.Text
            nombre("Motivo") = TB_motivo.Text
            nombre("Otros") = TB_otros.Text
            MiDataSet.Tables(0).Rows.Add(nombre)
            Me.MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))
        Catch
        End Try
    End Sub
 
    Private Sub Export_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Export_Btn.Click
        'Creamos las variables 
        Dim exLibro As Excel.Workbook
        Dim exHoja As Excel.Worksheet
        Dim exApp As New Excel.Application 'Se debe agregar la referencia en el proyecto para usar esta función
        ' Variables para # de columnas y # de renglones 
        Dim iCol As Integer
        Dim iRow As Integer
        Try
            'Añadimos el Libro al programa, y la hoja al libro 
            exLibro = exApp.Workbooks("C:\prueba.xls")
            exHoja = exLibro.Worksheets("Hoja1")
            iCol = dgg.Columns.Count 'MiDato2 
            iRow = dgg.Rows.Count 'MiDato1 
            If iCol = 0 Then
                MsgBox("No hay información por exportar a Excel", MsgBoxStyle.Information, "mi programa")
            Else
                'Aqui recorremos todas las filas 
                For i As Integer = 1 To iCol
                    If dgg.Columns(i - 1).Visible = True Then
                        exHoja.Cells.Item(1, i) = dgg.Columns(i - 1).Name.ToString
                        exHoja.Cells.Item(1, i).HorizontalAlignment = 3
                    End If
                Next
                'Por cada fila pone todas las columnas y vamos escribiendo. 
                For Fila As Integer = 0 To iRow - 1
                    For Col As Integer = 0 To iCol - 1
                        If dgg.Columns(Col).Visible = True Then
                            exHoja.Cells.Item(1, Col + 1) = dgg.Columns(Col).HeaderText 'Estas son las columnas del encabezado
                            exHoja.Cells.Item(Fila + 2, Col + 1) = dgg.Rows(Fila).Cells(Col).Value
                        End If
                    Next
                Next
                exLibro.SaveAs("C:\prueba.xls")
                exApp.Application.Visible = True
            End If
            'Se eliminan las variables de objeto excel 
            exApp = Nothing
            exHoja = Nothing
            exLibro = Nothing
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Error al exportar a Excel")
            Return
        End Try
        Return
    End Sub
End Class
 

[moradazo]

Hola a todos, al menos pude ya lograr importar a mi datagrid y expotar a excel. El único detalle es que no puedo agregar filas o "rows" ya que el datagrid se encuentra enlazado por haber importado un archivo de excel, y no me deja ingresar nuevas filas de ningún modo:



Por ejemplo he intentado con un While pero no funciona:

DataGridView1.Rows(i).Cells(0).Value = Textbox1.Text

O con el agregar normal:

DataGridView1.Rows.Add()

Alguien me puede dar una mano en como agregar filas nuevas con el datagrid enlazado?

Gracias

Aqui el código de importar y exportar:

Código vb:

Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1 
    Inherits System.Windows.Forms.Form
    Private MiDataSet As New DataSet()
    Private MiEnlazador As New BindingSource 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim abrir As New OpenFileDialog
        abrir.Filter = "Archivo de excel|*.xls"
        If abrir.ShowDialog = Windows.Forms.DialogResult.OK Then
            importexcel(abrir.FileName)
        End If
    End Sub
    Private Sub importexcel(ByVal path As String)
        Dim sconnectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" + path + "" _
        & ";" & "Extended Properties=Excel 8.0;"
        Dim objconn As New OleDb.OleDbConnection(sconnectionstring)
        objconn.Open()
        Dim objcmdselect As New OleDb.OleDbCommand("SELECT * FROM [Hoja1$]", objconn)
        Dim objadapter1 As New OleDb.OleDbDataAdapter()
        objadapter1.SelectCommand = objcmdselect
        Dim objdataset1 As New DataSet()
        objadapter1.Fill(objdataset1, "XLData")
        Me.DataGridView1.DataSource = objdataset1.Tables(0).DefaultView
        objconn.Close()
    End Sub
 
    Public Sub exportaraexcel(ByVal dgv As DataGridView, ByVal pth As String)
        Dim xlapp As Object = createobject("Excel.Application")
        Dim xlwb As Object = xlapp.workbooks.add
        Dim xlws As Object = xlwb.Worksheets(1)
 
        For C As Integer = 0 To datagridview1.columns.count - 1
            xlws.cells(1, c + 1).value = Datagridview1.columns(c).headertext
        Next
        For r As Integer = 0 To datagridview1.rowcount - 1
            For c As Integer = 0 To datagridview1.columns.count - 1
                xlws.cells(r + 2, c + 1).Value = datagridview1.item(c, r).Value
            Next
        Next
 
        xlwb.saveas(pth)
        xlws = Nothing
        xlwb = Nothing
        xlapp.quit()
        xlapp = Nothing
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim save As New SaveFileDialog
        save.Filter = "Archivo Excel | *.xls"
 
        If save.ShowDialog = Windows.Forms.DialogResult.OK Then
            exportaraexcel(Me.DataGridView1, save.FileName)
        End If
    End Sub
 

[Rugeiro]

Intenta con lo siguiente:

Dim fila As DataRow = tuDataSet.Tables("tabla").NewRow()
fila("campo1") = varX
fila("campo2") = Trim(textBox.Text)
fila("Campo_n") = Trim(textBox.Text)
tuDataSet.Tables("tabla").Rows.Add(fila)

Al estar enlazados el Dataset y el Grid, el grid se actualizaria automaticamente

[moradazo]

Hola muchisimas gracias por la ayuda. Resulta que ingreso su código a un botón, ahi disculpa la ignorancia, cuando dices "tuDataSet.Tables("tabla").NewRow(), eso lo debo dejar así o se supone que debo reemplazarlo por algún nombre que tenga en el programa?

Lo hice exactamente así, sin embargo cuando oprimo el botón agregar, se me cierra el programa.

Así dejé el código:

Código vb:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, DataGridView1.AllowUserToAddRowsChanged
        Dim fila As DataRow = MiDataSet.Tables("tabla").NewRow()
        fila(0) = tb_citrix.Text
        fila(1) = tb_nombre.Text
        fila(2) = tb_hora.Text
        fila(3) = tb_msisdn.Text
        fila(4) = tb_razon.Text
        fila(5) = tb_otros.Text
    End Sub
 

[moradazo]

Por favor como agrego una fila a un datagrid dinámico. La fórmula que me dio el amigo anteriormente lo he cambiado de varias maneras y no encuentro forma.