Visual Basic.NET - exportar datgridview a plantilla de word

   
Vista:

exportar datgridview a plantilla de word

Publicado por exportar datgridview a plantilla de word (1 intervención) el 09/10/2015 21:11:10
hola buen día, estoy realizando un proyecto de escuela y se me pide exportar algunos datos a un doc de word ya prestablecido, encontre un código muy bueno y sencillo pero no se como hacer para agregar el datagridview igual en un marcador. tengo poco tiempo con esto, no entiendo muchos terminos pero me gusta :D espero me puedan ayudar de antemano gracias

este es el codigo que tengo
1
2
3
4
5
6
7
8
9
10
11
12
13
'ruta de la plantilla (contiene los marcadores)
        txtdireccion.Text = "ruta"
        'ruta del documento que se va a generar de los datos insertados en la plantilla
        txtdocumento.Text = "ruta"
Dim MSWord As New Word.Application
        Dim Documento As Word.Document
        FileCopy(txtdireccion.Text, txtdocumento.Text)
        Documento = _
            MSWord.Documents.Open(txtdocumento.Text)
        Documento.Bookmarks.Item("marcador1").Range.Text = Label2.Text
        Documento.Bookmarks.Item("marcador6").Range.Text = Label3.Text
 
        MSWord.Visible = True

ayuda por favor gracias
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

exportar datgridview a plantilla de word

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 11/10/2015 03:58:16
hay ejemplos en la web
usa un datatable para enviar los datos a word
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

exportar datgridview a plantilla de word

Publicado por Guadalupe (13 intervenciones) el 13/10/2015 18:52:18
si tengo un ejemplo en el cual me manda todo el dgv pero no se como convinarlo para que me lo mande a un archivo con formato preestablecido, y en este si me lo envia adonde yo necesito pero lo teng con puros labels
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
Imágen de perfil de giancarlo

exportar datgridview a plantilla de word

Publicado por giancarlo (288 intervenciones) el 24/10/2015 16:42:35
tal vez te sirva

http://www.todoexpertos.com/categorias/tecnologia-e-internet/respuestas/1859015/trabajar-con-documentos-de-word-con-vb-net

http://support.microsoft.com/kb/316383/es#top
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

exportar datgridview a plantilla de word

Publicado por Guadalupe (13 intervenciones) el 09/11/2015 21:16:44
Muchas gracias de verdad me sirvió mucho, me tarde en contestar por que probe de una y otra forma, pero finalmente me salió muchas gracias
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

exportar datgridview a plantilla de word

Publicado por Jose MIGUEL (2 intervenciones) el 02/04/2017 17:58:36
NECESITO AYUDA DE EXPORTA LO QUE TIENE DAGRIVIE A WORD VISUAL BASIC
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

exportar datgridview a plantilla de word

Publicado por Guadalupe (13 intervenciones) el 04/04/2017 15:42:00
hola jose miguel
te proporciono el codigo que utilice ya tu lo modificarás a tu necesidades, ojala te sirva

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
 
Public Class carta
    Dim ds As DataSet = New DataSet
    Dim da As OleDbDataAdapter
    Dim tables As DataTableCollection = ds.Tables
    Dim Documento As Word.Document
 
    '    Public Function
    Sub GrillaAWord(ByVal Grilla As DataGridView)
        Dim NCol As Integer = Grilla.ColumnCount
        Dim NRow As Integer = Grilla.RowCount
        Dim Table As Table
        Table = Documento.Tables.Add(Documento.Bookmarks.Item("marcador4").Range, Grilla.RowCount, Grilla.ColumnCount)
 
        'Agregando Los campos De La Grilla 
        For i As Integer = 1 To NCol
            Table.Cell(1, i).Range.Text = Grilla.Columns(i - 1).Name.ToString
        Next
        'Agregando Los Registros A La Tabla 
        For Fila As Integer = 0 To NRow - 2
            For Col As Integer = 0 To NCol - 1
                If Grilla.Rows(Fila).Cells(Col).Value IsNot DBNull.Value Then
                    Table.Cell(Fila + 2, Col + 1).Range.Text = Grilla.Rows(Fila).Cells(Col).Value
                End If
            Next
        Next
        'Nombres De Los Campos 
        Table.Rows.Item(1).Range.Font.Bold = True
        Table.Rows.Item(1).Range.Font.Size = 11
        Table.Rows.Item(1).Range.Font.Name = "Arial"
        Table.Rows.Item(1).Range.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
        'Boder De La Tabla
        Table.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle
        Table.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle
        'Table.Borders.InsideColor = WdColor.wdColorBlue
    End Sub
 
    Sub controles()
        If dgv.Rows.Count < 0 Then
            btgenerar.Enabled = False
        Else
            btgenerar.Enabled = True
        End If
 
 
    End Sub
 
    Sub cargardgv()
        Try
            conexion.Open()
            ds = New DataSet
            Dim table As DataTableCollection = ds.Tables
            da = New OleDbDataAdapter("SELECT t_alumnos.no_control.... WHERE t_profesores.id_tutor = '" & cbtutor.SelectedValue & "' AND t_asistencias.semestre_1 Is Null", conexion)
            da.Fill(ds, "consulta1")
            'Asignamos
            dgv.DataSource = New DataView(table(0))
            dgv.Columns(1).Width = 200
            dgv.Columns(2).Width = 210
            dgv.Refresh()
            'Liberamos
            ds.Dispose()
            da.Dispose()
            conexion.Close() 'Cerramos
        Catch ex As Exception
            ex.Message.ToUpper()
        End Try
    End Sub
 
    Sub cargartutores()
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM t_profesores", conexion)
        Dim DS As New DataSet
        DA.Fill(DS, "t_profesores")
        cbtutor.ValueMember = "id_tutor"
        cbtutor.DisplayMember = "nombre_completo"
        cbtutor.DataSource = DS.Tables("t_profesores")
    End Sub
 
    Private Sub carta_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        conexion.Close()
    End Sub
 
    Private Sub carta_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cargartutores()
        btgenerar.Enabled = False
        'ruta de la plantilla (contiene los marcadores)
        txtdireccion.Text = "C:\plantilla_carta.docx"
 
        'ruta del documento que se va a generar de los datos insertados en la plantilla
        txtdocumento.Text = "C:\carta1.docx"
    End Sub
    Private Sub cbtutor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbtutor.SelectedIndexChanged
        cbtutor.DropDownStyle = ComboBoxStyle.DropDownList
        btgenerar.Enabled = False
    End Sub
    Private Sub cbsemestre_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbsemestre.SelectedIndexChanged
        cbsemestre.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
 
    Private Sub btver_Click(sender As Object, e As EventArgs) Handles btver.Click
        cargardgv()
        btgenerar.Enabled = False
        controles()
 
 
    End Sub
 
    Private Sub btgenerar_Click(sender As Object, e As EventArgs) Handles btgenerar.Click
 
        Dim MSWord As New Word.Application
 
        FileCopy(txtdireccion.Text, txtdocumento.Text)
        Documento = _
            MSWord.Documents.Open(txtdocumento.Text)
        Documento.Bookmarks.Item("marcador1").Range.Text = dtfecha.Text
        Documento.Bookmarks.Item("marcador2").Range.Text = cbtutor.Text
        Documento.Bookmarks.Item("marcador3").Range.Text = cbsemestre.Text
        GrillaAWord(dgv)
        MSWord.Visible = True
 
    End Sub
 
End Class
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

exportar datgridview pero es lo que yo diguite en datagri a plantilla de word

Publicado por Jose Miguel (2 intervenciones) el 17/04/2017 16:46:04
Es exportar de un datagriew pero lo que yo diguite no lo que biene de la base de datos
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