listview (copiar datos en excel)

Question

buenas con todos soy nuevo espero poder hacer muchos amigos y resolver muchas dudas desde ya muchas gracias por su ayuda

tengo un problema con el listview quiero copiarlo a excel pero en un rango de celdas o que comienze a llenar mi excel a partir de la 14va fila por ejemplo este es el codigo q estoy utilizando:

Public Class Form1

    Dim cn As New OleDb.OleDbConnection
    Dim cm As New OleDb.OleDbCommand
    Dim da As New OleDb.OleDbDataAdapter
    Dim dt As New DataTable
    Dim dataset As DataSet

    Sub llenarListview()

    End Sub

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'cuando el formulario carga crear la conexion , notese que el string de conexion se edita de forma manual.

        llenarListview()
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\SISTEMAS-MONITOREO\Desktop\visual\BDACC\datos.xlsx;Extended Properties=Excel 12.0"

        Dim sql = "select * from [Hoja1$]"
        da = New OleDb.OleDbDataAdapter(sql, cn)
        da.Fill(dt)

        'llenar el listwiev

        For i = 0 To dt.Rows.Count - 1

            ListView1.Items.Add(dt.Rows(i).Item(0))
            ListView1.Items(i).SubItems.Add(dt.Rows(i).Item(1))


        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'agrega en la BD
        cn.Open()
        cm.Connection = cn

        cm.CommandText = "insert into [Hoja1$]values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        cm.ExecuteNonQuery()

        'Agrega en el list view
        Dim indice As Integer = ListView1.Items.Count


        ListView1.Items.Add(TextBox1.Text) 'agrega una fila nueva
            ListView1.Items(indice).SubItems.Add(TextBox2.Text)
            ListView1.Items(indice).SubItems.Add(TextBox3.Text) ' agrega una columna nueva en la fila creada

            cn.Close()

    End Sub
End Class

Answer 1

muchas gracias por responder :

me supongo que te refieres a esto

cm.CommandText = "insert into [Hoja1$A14:B14]values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        cm.ExecuteNonQuery()

pero me sale este error cuando le doy click para guardar

Información adicional: Esta tabla contiene celdas que están fuera del rango de celdas definido en la hoja de cálculo.

Answer 2

Hola Ericks, el tema es que intentas lograr, si no tienes una estructura de tabla en la hoja excel deberas cargar los datos mediante código o ulizar algúna herramienta para el caso, igualmente un listView no es el mejor control para este caso, preferiblemente utilizar DataGridView que te perite editar sin mayores problemas. Por otro lado INSERT INTO, como te decía necesita de una estructura de tabla para insertar un nuevo registro, este registro lo puedes añadir mediante Parametros ej  cm.Parameter.AddWithValue("Campo1", TextBox1:Text) para luego cm.ExecuteNonQuerry()  pero para esto, dado el ejemplo, debe existir la columna "Campo1" y el registro se cargara al final de las filas.  Creo que deberías explicar un poco más lo que deseas para poder ayudarte mejór

Saludos

Answer 3

lo que necesito es llenar un registro en la misma hoja de excel para eso el codigo de arriba utilize un archivo de excel como base de datos que cada vez que habro el programa me carga lo que ya se ha llenado previamente

mi problema es al momento de registrar textbox1.text quiero que se almacene a la ceda A:14 por ejemplo y textbox2.text en B:14 (con el codigo de arriba almacena en las primera fila y columna y eso no me ayuda )

Answer 4

Bien, por lo que veo de tu código cargas en un DataTable lo que tienes en el excel, por tal existe la tabla en el, vamos por partes, mi duda, por qué en la fila 14? o debería ser al final de las filas? entiendo cagando nuevos registros en la base de datos (excel) de ser así INSERT INTO debe funcionar ej: supongamos que en el excel tienes tres columnas ID, Campo1, Campo2

entonces, cm.ComandText = "INSERT INTO [Hoja1$] VALUES (ID, Campo1, Campo2)"

           cm.Parameters.Clear()

           cm.Parameters.AddWhidValue("ID", Textbox1.text)

           cm.Parameters.AddWhidValue("Campo1", Textbox2.text)

            cm.Parameters.AddWhidValue("Campo2", Textbox3.text)

          cm.ExcecuteNonQuery()

          cm.Connection.Close()

No lo copies tal cual que lo escribí a mano alzada. Ahora bien aquí te cargará un nuevo registro en la hoja excel (al final del los rows) no exactamente en la fila 14. Por otro lado deberías independizar la carga del ListView con esto que es la carga de la base de datos (excel) puedes optar por dos buttons diferentes. La forma en que cargas ListView, a mi entedeer no es la adecuada debería cargarse medieate ListViewItems en este caso funciona por ser solo dos columnas de ser más podrias tener inconvenietes, hay varios ejemplos en el foro

Lo pruebas y me dices

Saludos

Answer 5

si me funciono, muchas gracias y si lo que tu decías tengo problemas cuando son mas columnas alguna recomendación por favor muchas gracias por tu ayuda.

PD. es para llenar un registro de empleados y esta en excel la plantilla pense que deberia solo enlazarlo con la tabla, veo que cuando el excel esta vacio y solo tengo la trabla me funciona el codigio pero cuando esta lleno por mas celdas que estan fuera de la tabla mi codigo no funciona alguna ayuda?

me sale

Excepción no controlada del tipo 'System.ArgumentException' en Microsoft.VisualBasic.dll

Información adicional: La columna 'campo1' no pertenece a la tabla

Answer 6

Bien, se entiende que lo coloque es un ejemplo verdad? Cuando se hace referencia a "Campo1" en el plano real debería ser el nombre de tu columna en el excel, para tratar de ordenar un poco más la idea, por favor, coloca una imagen de el excel desde la cabecera del mismo, los valores obviamente cambialos, lo que me interesa y su pongo que a los demás es ver la disposición de las oclumnas y cabeceras de ese excel.  En cuanto tengamos más ideas seguramente saldran mejores soluiciones al respecto. Ten presente también que una cosa es cargar datos en un excel mediante comandos otra eliminar, lo comento por si tu proyecto desarrolla en esa dirección.

 Siguiendo con el ejemplo, la disposición del excel para usar como base de datos debe estar en forma de cabezera y columnas y no tener datos por fuera de estas columnas, como en tu código lo cargas en un DataTable supuse que así debería estar.

Saludos

Answer 7

Mi estimado muchas gracias por responder como no esta verificada mi cuenta no puedo agregar imagen pero aca te dejo mi link de la imagen,

como se ve ese es el excel que quiero llenar en donde dice participantes agregar con un programa a dichos participantes por favor espero tu ayuda o en todo caso si hay otra solución para mi porblema

https://1drv.ms/i/s!AsviN-YXCXlmgzkVc8xSIc_qar1n

Answer 8

Hola Ericks, bien en primer lugar trata de modificár la hoja para que la parte en que se encuentra la tabla mantenga el orden de las celdas y en el caso modifíaca lo que se encuentra por soble ella de esta manera la carga sera coherente, desconosco si existe alguna forma de utilizar los datos con celdas modificadas (celdas unificadas) por otro lado verifica los tipos de datos, cuando se toman mediant Ado Net, al ingresar los datos en un tatatable este "acomoda" los tipos de acuerdo a lo que va recibiendo, si carga fechas de origen pedirá fechas al cargar. Bueno el tema cuando el excel no tiene un formato definido de tabla, como es tu caso, se debe seleccionar un rango y especificar que DHR= NO lo que significa que no tomara tal cual la tabla, dado esto el valor de los campos cambia, se especifica F1, F2, F3..... Que es el nombre por defecto que tomara la tabla para sus columnas (campos)  y se agrega un seudonimo a el VALOR. Por lo que en tu caso quedaría algo así:

 cn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & path & "; Extended Properties= 'Excel 12.0 Xml;HDR=NO'")

da = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM " & "[" & "Hoja1$" & "A15:J200" & "]  ", cn)

Y luego colocarémos el INSERT para la carga de datos

 cn.CommandText = "INSERT INTO [Hoja1$]  (F1,F2,F3,F4,F5,F6) VALUES (@F1,@F2,@F3,@F4,@F5,@F6)"
        cm.Parameters.AddWithValue("@F1", num + 1)
        cm.Parameters.AddWithValue("@F2", TextBox3.Text)
        cm.Parameters.AddWithValue("@F3", TextBox5.Text)
        cm.Parameters.AddWithValue("@F4", TextBox6.Text)
        cm.Parameters.AddWithValue("@F5", TextBox10.Text)
        cm.Parameters.AddWithValue("@F6", TextBox9.Text)

         cm.ExecuteNonQuery()
        cm.Close()

El resultado

Ten presente que deberas especificar el rango de acuerdo a la necesidad yo coloque J200 pero al caso puede ser J20000 tu lo manejas, a si mismo el inicio ve probando por la base 0 y lo que entiende donde empieza la tabla (en vez de A14 creo que es A12) . En el ejemplo la hoja tiene 13 filas por encima de la tabla

Espero te sirva saludos

Edito: te dejo el código completo evalúa para el index Dim Num as ingeter = dt.rows.count -1 y al cargar ......=@F1 = Num + 1)

 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim path As String = "C:Rurta de tu excel\Libro1.xlsx"

        OleConexion = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & path & "; Extended Properties= 'Excel 12.0 Xml;HDR=NO'")
        Dim dats As New DataSet
        DatAdapter = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM " & "[" & "Hoja1$" & "A15:J200" & "]  ", OleConexion)
        Dim Tabla2 As New DataTable
        DatAdapter.Fill(Tabla2)
        Dim num As Integer = Tabla2.Rows.Count - 1
        OleConexion.Open()
        cm.Connection = OleConexion
        cm.Parameters.Clear()

        cm.CommandText = "INSERT INTO [Hoja1$]  (F1,F2,F3,F4,F5,F6) VALUES (@F1,@F2,@F3,@F4,@F5,@F6)"
        cm.Parameters.AddWithValue("@F1", num + 1)
        cm.Parameters.AddWithValue("@F2", TextBox3.Text)
        cm.Parameters.AddWithValue("@F3", TextBox5.Text)
        cm.Parameters.AddWithValue("@F4", TextBox6.Text)
        cm.Parameters.AddWithValue("@F5", TextBox10.Text)
        cm.Parameters.AddWithValue("@F6", TextBox9.Text)


        cm.ExecuteNonQuery()
        OleConexion.Close()
    End Sub