RE:GRABAR UN LIBRO EN EXCEL CON VISUAL BASIC 6.0
quizas este codigo te sirva
Private Sub cmdexportar_Click()
fgerrores.Col = 0 ' posiciono el flex grid
fgerrores.Row = 0 ' posiciono el flex grid
Set objExcel = New Excel.Application 'creo la aplicacion nueva
objExcel.Visible = True 'lo hacemos visible
objExcel.SheetsInNewWorkbook = 1 'decimos cuantas hojas queremos en el nuevo documento
objExcel.Workbooks.Add ' añadimos el objeto al workbook
For v = 1 To fgerrores.Rows 'vertical, desde la linea 1 hasta el final del flex grid
For h = 1 To 3 ' horizontal, como el flex grid tiene solo 3 columnas, es hasta 3
objExcel.ActiveSheet.Cells(v, h) = fgerrores.Text ' transfiero el texto de la grilla al excel
If fgerrores.Col <> 2 Then
fgerrores.Col = fgerrores.Col + 1 ' si la columna no es la ultima, paso a la columna de al lado en el flex
End If
Next h ' paso a la siguiente columna en excel
fgerrores.Col = 0 ' vuelvo a la columna 0 en el flex
If fgerrores.Row <> fgerrores.Rows - 1 Then
fgerrores.Row = fgerrores.Row + 1 ' para no pasarme de la ultima fila del flex
End If
h = 1
Next v ' paso a la siguiente fila
End
End Sub