elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Listview A Excel (copiar a un rango de celda)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Listview A Excel (copiar a un rango de celda)  (Leído 1,253 veces)
Ericks

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Listview A Excel (copiar a un rango de celda)
« en: 15 Septiembre 2017, 23:02 pm »

Hola buenas con todos, queria ayuda sobre este codigo que tengo lo que pasa que quisiera que los datos de listview se copien o transfieran al excel pero a un rango de celda especifico

aqui el codigo

desde ya muchas gracias :(

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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Listview A Excel (Aliner celda)
Programación Visual Basic
TheGhost(Z) 4 7,851 Último mensaje 31 Julio 2007, 20:59 pm
por TheGhost(Z)
Control en una celda Listview
Programación Visual Basic
pisagatos 0 708 Último mensaje 29 Abril 2008, 00:53 am
por pisagatos
celda excel a html
Programación Visual Basic
OssoH 2 3,626 Último mensaje 27 Agosto 2010, 00:15 am
por OssoH
Como escribir en una celda de Excel desde otra celda
Software
javier234- 4 1,673 Último mensaje 22 Junio 2012, 21:57 pm
por maxtextla
Buscar palabra en celda Excel
Programación General
Lain0x 2 1,538 Último mensaje 2 Diciembre 2013, 07:36 am
por Lain0x
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines