Exportar Datagridview a Word

-
Hola amigos, en esta entrada vamos a exportar un Datagridview a una tabla de Word haciendo referencia a las librerias de Microsoft Office que en la mayoria de pcs Windows incluyen. Este ejemplo se basa en el ejemplo propuesto en:http://www.elnaufragodelared.com/2012/09/exportar-de-datagridview-word-en-visual.html

Aquí presento el código completo:


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'GENERAR Y RELLENAR EL DATAGRIDVIEW
        Try
            Dim n As Integer = 6 ' cualquier valor para sumar
            Dim cantidad(n) As Integer 'matriz para almacenar hasta n valores
            Dim valor As Double = 0.18 'valor de un articulo en común ....para ejemplificar
            Dim subtotal(n) As Double ' matriz que almacena los subtotales de cada compra
            Dim suma As Double 'total de la suma de la columna subtotal
            For i As Integer = 0 To n - 1
                cantidad(i) = i 'Val(InputBox("Ingresar cantidad Nº" & i + 1)) 'Entrada manual
            Next
            For i As Integer = 0 To n - 1
                subtotal(i) = cantidad(i) * valor
                suma = suma + subtotal(i)
            Next
            grid1.Rows.Add(n + 1) 'numero de filas del grid
            For r As Integer = 0 To n - 1
                grid1.Item(0, r).Value = r + 1
                grid1.Item(1, r).Value = Format(cantidad(r), "0.00")
                grid1.Item(2, r).Value = Format(valor, "0.00")
                grid1.Item(3, r).Value = Format(subtotal(r), "0.00")
                grid1.Item(2, n).Value = "TOTALES="
                grid1.Item(3, n).Value = Format(suma, "0.00")
            Next
        Catch ex As KeyNotFoundException
            MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message)
        End Try
    End Sub
    Private Sub BtnExpWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExpWord.Click
        Dim objWordApp As Object
        Dim objWordDoc As Object
        objWordApp = CreateObject("Word.Application")
        objWordDoc = objWordApp.documents.add()
        objWordDoc.tables.add(objWordDoc.range(0, 0), 7, 4)
        With objWordDoc.tables(1)
            .borders.InsideLineStyle = 1
            .borders.OutsideLineStyle = 1
            For i As Integer = 0 To 6
                .rows(i + 1).cells(1).range.text = grid1.Item(1, i).Value 'grid1.Rows(i + 1).Cells("n").Value
                .rows(i + 1).cells(2).range.text = grid1.Item(2, i).Value 'grid1.Rows(i + 2).Cells("Cantidad").Value
                .rows(i + 1).cells(3).range.text = grid1.Item(3, i).Value 'grid1.Rows(i + 3).Cells("Valor").Value
            Next
        End With
        objWordApp.visible = True
        objWordApp = Nothing
    End Sub
End Class

De acuerdo al ejemplo corremos el programa y obtenemos:




Mi ejemplo
https://drive.google.com/open?id=0B-UGWA03tc5ZQjdXaXZyNHhCRWc

Y llegamos al final, un gusto y comentarios y/o preguntas a mi correo, nos vemos


Comentarios

Publicar un comentario

Entradas populares de este blog

DevComponents DotnetBar 12.5.0.2

-
Imagen
Devcomponents DotNetBar es una suite de controles muy útiles para mejorar la apariencia y estilo mejorado de nuestras aplicaciones. Actualmente la versión bordea la v12.5, y tiene una  excelente afinidad con Microsoft Visual Studio 2005, 2008, 2010, 2012, 2013, 2015 Comunity 2013 y 2015  La Suite de DotNetBar para Windows Forms es la caja de herramientas de más de 86   componentes asombrosos para crear la interfaz de usuario profesional con facilidad utilizando Visual Studio 2005 hasta el 2015. Desde hace más de 10 años DotNetBar está ayudando a los desarrolladores   a crear elegantes aplicaciones profesionales de Windows Forms ( WinForms),  interfaces de usuario con una facilidad incomparable . Desde la version 10.4 aparece el ribbon tipo Metro,  pasando por version 11.3, 11.7, 11.8, 12, 12.1, 12,4  y ahora en la versión 12.5  incluye el ribbon tipo Office 2016, Office Mobile style 2014 y Office 2013 y ot...
Leer más

Imprimir directamente ReportViewer a impresora predeterminada

-
Imagen
                                                                                                                    MODIFICADO 07-10-2015 Un tema muy importante y picante en algunos blogs y foros es éste que les expongo, sin embargo adaptarlo no es facil, el hecho de verlo como reporte no es suficiente en aspectos donde ya se conoce y se quiere omitir dicho paso, siendo así me encamine el hacer un ejemplo que satisfaga estas necesidades como la de imprimir directamente a la impresora predeterminada de nuestra casa o trabajo.                                                 ...
Leer más

Sumar columna de Datagridview en Visual Basic Net

-
Imagen
Hola amigos..esta es otra entrega que tal vez les sera útiles en momentos que estén desarrollando una aplicación   de tal manera que algunas veces necesitamos sumar columnas numéricas del datagridview y sobre todo presentarlas al final  del mismo. Entonces para ello mostremos una grilla llena de cantidades numéricas que se desea sumar y al final quede así: Recuerda que debes poner en las propiedades del control datagridview {AllowUserToAddRows=False}para evitar que el control agregue automáticamente filas Al final el código sobre el botón: Private Sub Btnsumar_Click(sender As System.Object, e As System.EventArgs) Handles Btnsumar.Click Try Dim n As Integer = 4 ' numero contador Dim cantidad(n) As Integer 'matriz para almacenar hasta n valores Dim valor As Double = 0.18 'valor de un articulo en común Dim subtotal(n) As Double ' matriz que almacena lo...
Leer más