Copiar todos los datos de un Flex Grid y pegarlo en Excel

Alexauro
21 de Diciembre del 2004
A ver si alguien es el bueno, que creen que tengo una aplicacion en la cual tengo varias consultas en que utilizo un MSFlexGrid, lo que quiero es seleccionar todos los datos del Flexgrid y pegarlos en una hoja de Excel.

Help me Please

si alguien tiene algun codigo que me pueda servir se los gradecere me lo envien a [email protected]

programador666
21 de Diciembre del 2004
Sub exportar(archivo As String)
On Error GoTo error
Dim fila As Long
Dim AppExcel As Object
Dim colmn As Integer
Set AppExcel = CreateObject("Excel.Application")
With AppExcel
.Workbooks.Add
.SheetsInNewWorkbook = 1
'Llenando Encabezados
For colmn = 0 To (adccounters.Recordset.Fields.Count - 1)
.Cells(1, colmn + 1) = dtgcounters.Columns(colmn).Caption
Next
'Llenando Filas y Columnas
Dim col As Byte
For fila = 0 To (adccounters.Recordset.RecordCount - 1)
dtgcounters.Row = fila
For col = 0 To (adccounters.Recordset.Fields.Count - 1)
.Cells(fila + 2, col + 1) = IIf(dtgcounters.Columns(col).Value = "", "", dtgcounters.Columns(col).Value)
'.Columns("C").ColumnWidth = 40
Next
Next
.Workbooks(1).SaveAs archivo
.Workbooks(1).Close True
End With
Conexion.Close
Set Conexion = Nothing
Set AppExcel = Nothing
Exit Sub
error:
Select Case Err.Number
Case 13
Resume Next
Case Is <> 0
MsgBox "Error: #" & Err.Number & Chr(13) & Chr(13) & Err.Description
End Select
End Sub