Sección de códigos, trucos y ejemplos para visual basic

 

 

44 - Exportar los datos de un Datagrid a un marcador
en una tabla en Word

<Volver> - Anterior - Siguiente

 

 

 

---

 

Rutina que permite exportar los datos de un control Datagrid a una tabla en Word, pero esta tabla está ubicada en un marcador.

 

Formulario con el DataGrid

 

Luego en el Documento de word, se crea una tabla en un marcador, y se van copiando los datos a dicha tabla, a medida que se recorre el datagrid

 

 

Controles y referencias para el ejemplo

• Crear un archivo de Word en la carpeta del programa llamado ArchivoWord.Doc. Dentro del archivo crear un marcador, que será el punto donde se creara una tabla con los datos de un control Datagrid . El marcador debe llamarse "Tabla" o el que quieras pero luego indicarlo en Name:="Nombre del marcador que quieras"
• Añadir la referencia a Ado ( Microsoft Activex data objects )
• Colocar en el formulario un control DataGrid
• Agregar la referencia a Microsoft Word
• Agregar un CommandButton

 

Código fuente en el formulario

Option Explicit ' variables para la conexión y el recordset ado ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Command1_Click() On Error GoTo ErrSub Dim o_Word As Word.Application Dim Documento As Word.Document Dim c As Integer ' columna Dim f As Long ' fila Dim dato As Variant ' valor de la celda del datagrid ' Establece la referencia al Word Set o_Word = New Word.Application ' Pone el Word visible o_Word.Visible = True 'Abrimos el documento "archivoWord.doc" con Open Set Documento = o_Word.Application.Documents.Open(App.Path + "\archivoWord.doc") 'Nos vamos al marcador llamado "tabla" en el documento, _ para insertar la tabla en ese punto Selection.goto What:=wdGoToBookmark, Name:="Tabla" With Documento 'Agregamos la tabla dentro de Word con las _ filas y columnas que tenga el datagrid ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=DataGrid1.ApproxCount + 1, _ NumColumns:=DataGrid1.Columns.Count 'Recorremos el Data Grid para agregar las columnas y filas a nuestra tabla For c = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Row = 0 ActiveDocument.Tables(1).Cell(1, c + 1).Range.InsertAfter _ DataGrid1.Columns(c).Caption 'agregar columnas ' recorre las filas de la columna actual For f = 0 To DataGrid1.ApproxCount - 1 ' almacena el dato de la celda del datagrid de la columna actual dato = DataGrid1.Columns(c).CellValue(DataGrid1.GetBookmark(f)) ' agrega el dato a la celda de la tabla ActiveDocument.Tables(1).Cell(f + 2, c + 1).Range.InsertAfter dato Next f Next c End With 'Descargamos los objetos Set o_Word = Nothing Set Documento = Nothing Exit Sub ErrSub: MsgBox Err.Description, vbCritical On Error Resume Next Set o_Word = Nothing Set Documento = Nothing End Sub Private Sub Form_Load() ' Conexión ado Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False" ' abre la base de datos Nwind.mdb cn.Open ' Crea un recordset Set rs = New ADODB.Recordset ' Llena el recordset rs.Open "Select IdEmpleado,Nombre From empleados", _ cn, adOpenStatic, adLockOptimistic ' Enlaza el DataGrid al recordset Set DataGrid1.DataSource = rs Command1.Caption = " Mandar Datagrid a word " End Sub

 

vb6 - Enlaces relacionados

• Pegar imagen de un picturebox en un marcador en word

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar