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

43 - Exportar FlexGrid a una tabla en un documento de Word

<Volver> - Anterior - Siguiente

Ejemplo que exporta los registros cargados en un control Microsoft Hierarchical FlexGrid, a una tabla en un documento de Word

El ejemplo recorre las filas y columnas del Flexgrid, para insertarlas y copiarlas en un nuevo documento de word.

Formulario

vista del flexgrid con los registros

Y en el documento se crea la tabla con los datos de la grilla

vista de la tabla de word con los datos

Controles

un control CommandButton
un control Microsoft Hierarchical FlexGrid
La referencia de Word desde el menú referencias de visual basic
La referencia a Ado ( Microsoft Activex data objects )

Código fuente en un formulario

Dim cn As ADODB.Connection Dim rs As ADODB.Recordset '*************************************************************************** '* Referencias: Agregar la referencia Word, y también un control _ Microsoft Hierarchical FlexGRid '*************************************************************************** Private Sub Command1_Click() 'Variable de tipo Aplicación de Word Dim o_Word As Word.Application 'Variable de tipo documento de Word Dim Documento As Word.Document ' variable para hacer referencia al párrafo Dim Parrafo As Table 'F es para recorrer la Fila y C para la Columna Dim F, C As Double 'Nuevo instancia del objeto Set o_Word = New Word.Application 'Agrega un Nuevo documento de word Set Documento = o_Word.Documents.Add 'Creamos una tabla dentro del nuevo documento Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _ MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) 'Hacemos visible el word o_Word.Visible = True 'Recorremos el MsHFlexgrid para agregar las columnas y filas a nuestra tabla For C = 0 To MSHFlexGrid1.Cols - 1 'Agregar columnas Parrafo.Cell(0, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(0, C) 'Agregar filas For F = 0 To MSHFlexGrid1.Rows - 1 Parrafo.Cell(F + 1, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(F, C) Next F Next C 'Eliminamos los objetos Set o_Word = Nothing Set Documento = Nothing Set Parrafo = Nothing Exit Sub 'error ErrSub: MsgBox Err.Description On Error Resume Next Set o_Word = Nothing Set Documento = Nothing Set Parrafo = Nothing End Sub Private Sub Form_Load() MSHFlexGrid1.FixedCols = 0 ' 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 MsHFlexGrid al recordset Set MSHFlexGrid1.DataSource = rs Command1.Caption = " Mandar a la tabla de word " End Sub

Recursos vb6 - Enlaces relacionados:

Buscar en Recursos vb