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

45 - Exportar los datos de un DataGrid a una tabla de Word usando el control Ado

Ejemplo que exporta los registros de un control DataGrid a un documento de Microsoft word

Este ejemplo muy simple,es practicamente igual al de la página anterior, salvo que, en ves de exportar los registros del DataGrid a un marcador del documento, simplemente crea una tabla con la misma cantidad de columnas y filas que la grilla donde esté ubicada la selección actual, y dentro copia los registros.

Vista del formulario de ejemplo

Exportando datos desde Visual Basic a Word mediante Ado

Controles para el ejemplo

Un control DataGrid llamado Datagrid1
Un control Ado llamado Adodc1
Especificar la referencia a Microsoft Word object library desde el menú referencias de visual basic
Por último agregar un CommadButton para ejecutar el código que exporta los datos del Datagrid al documento de Word

Código fuente en el formulario:

Option Explicit Private Sub Command1_Click() On Error GoTo ErrSub 'Variable de tipo Word Aplication Dim o_Word As Word.Application 'Variable de objeto para hacer referencia al documento Dim Documento As Word.Document 'Variable de tipo tabla para poder hacer _ referencia a la tabla dentro del Word Dim Parrafo As Table 'La f es para referenciar a las filas y la _ C para las columnas de la tabla de Word Dim F As Long Dim C As Integer Dim dato As Variant 'nuevo objeto de tipo Word Application Set o_Word = New Word.Application 'hacemos visible el documento o_Word.Visible = True 'Añadimos un Nuevo documento de word Set Documento = o_Word.Documents.Add 'creamos una tabla dentro del documento Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _ DataGrid1.ApproxCount + 1, DataGrid1.Columns.Count) For C = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Row = 0 ' Agregar las columnas Parrafo.Cell(1, C + 1).Range.InsertAfter DataGrid1.Columns(C).Caption ' 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 Parrafo.Cell(F + 2, C + 1).Range.InsertAfter dato Next F Next C 'descargamos los objetos creados Set o_Word = Nothing Set Documento = Nothing Set Parrafo = Nothing Exit Sub ErrSub: MsgBox Err.Description, vbCritical On Error Resume Next Set Parrafo = Nothing Set Documento = Nothing Set o_Word = Nothing End Sub Private Sub Form_Load() ' propiedades para el control Ado '''''''''''''''''''''''''''''''''''''''''''''''''''''' With Adodc1 .CursorLocation = adUseClient ' cadena de conexión ( usa la base de datos nwind de visual basic) .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & _ "=C:\Archivos de programa\Microsoft Visual " & _ "Studio\VB98\NWIND.MDB;Persist Security " & _ "Info=False" .CommandType = adCmdText ' comando sql .RecordSource = "Select IdEmpleado,Nombre From Empleados" ' refresca el recordset .Refresh End With 'Llenamos el Datagrid con los datos del recordset del control Ado Set DataGrid1.DataSource = Adodc1.Recordset End Sub

Buscar en Recursos vb