Saludos

tengo una inquietud y quisiera que me ayudaran de ante mano un millon de gracias

tengo una funcion que me exporta los datos que tiene cargada una grilla a excel, todo perfecto

el problema es el siguiente

quisiera saber si es posible colocar un control progressbar en el form
para que este se muestre el progreso de exportacion hacia excel

esta es la funcion y el boton que me exporta:

nota: el flexgrid es llamado "grid"

Private Sub cmdExportar_Click()

If MsgBox("Esta seguro que desea Exportar Estos Cheques", vbQuestion +_ vbYesNo, "Exportar") = vbYes Then

If Exportar_Excel(App.Path & "\Reporte.xls", grid) Then

MsgBox " Datos exportados en " & App.Path, vbInformation

End If

End If

Public Function Exportar_Excel(sOutputPath As String, FlexGrid As Object)_ As Boolean

On Error GoTo Error_Handler

Dim o_Excel As Object
Dim o_Libro As Object
Dim o_Hoja As Object
Dim Fila As Long
Dim columna As Long

' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
Set o_Excel = CreateObject("Excel.Application")
Set o_Libro = o_Excel.Workbooks.Add
Set o_Hoja = o_Libro.Worksheets.Add

' -- Bucle para Exportar los datos


With FlexGrid
For Fila = 1 To .Rows - 1
For columna = 0 To .Cols - 1


o_Hoja.Cells(Fila + 5, columna + 1).Value = .TextMatrix(Fila,_ columna)

o_Hoja.Cells(1, 3).Formula = Label8.Caption
o_Hoja.Cells(1, 3).Font.Size = 16
o_Hoja.Cells(1, 3).Font.Color = vbBlue
o_Hoja.Cells(1, 3).Font.Bold = True

o_Hoja.Cells(2, 4).Formula = "Reporte de Cheques"
o_Hoja.Cells(2, 4).Font.Size = 14
o_Hoja.Cells(2, 4).Font.Color = vbRed
o_Hoja.Cells(2, 4).Font.Bold = True

o_Hoja.Cells(3, 4).Formula = " Del " & fecha1.Value & " al " &_ fecha2.Value
o_Hoja.Cells(3, 4).Font.Bold = True

o_Hoja.Cells(6, 1).Formula = "Cheque"
o_Hoja.Cells(6, 1).Font.Bold = True
o_Hoja.Cells(6, 1).Font.Size = 11


o_Hoja.Cells(6, 2).Formula = "Carp"
o_Hoja.Cells(6, 2).Font.Bold = True
o_Hoja.Cells(6, 2).Font.Size = 11

o_Hoja.Cells(6, 3).Formula = "Fecha"
o_Hoja.Cells(6, 3).Font.Bold = True
o_Hoja.Cells(6, 3).Font.Size = 11


o_Hoja.Cells(6, 4).Formula = "Beneficiario"
o_Hoja.Cells(6, 4).Font.Bold = True
o_Hoja.Cells(6, 4).Font.Size = 11

o_Hoja.Cells(6, 5).Formula = "Monto en RD$"
o_Hoja.Cells(6, 5).Font.Bold = True
o_Hoja.Cells(6, 5).Font.Size = 11

o_Hoja.Cells(6, 6).Formula = "Estado"
o_Hoja.Cells(6, 6).Font.Bold = True
o_Hoja.Cells(6, 6).Font.Size = 11
Next
Next
End With

o_Libro.Close True, sOutputPath
' -- Cerrar Excel
o_Excel.Quit
' -- Terminar instancias
Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
Exportar_Excel = True

Exit Function

' -- Controlador de Errores
Error_Handler:
' -- Cierra la hoja y el la aplicación Excel
If Not o_Libro Is Nothing Then: o_Libro.Close False
If Not o_Excel Is Nothing Then: o_Excel.Quit
Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
If Err.Number <> 1004 Then MsgBox Err.Description, vbCritical
End Function

Private Sub ReleaseObjects(o_Excel As Object, o_Libro As Object, o_Hoja As Object)
If Not o_Excel Is Nothing Then Set o_Excel = Nothing
If Not o_Libro Is Nothing Then Set o_Libro = Nothing
If Not o_Hoja Is Nothing Then Set o_Hoja = Nothing
End Sub

quisiera que me ayuden por favor

Solo tienes que poner el ProgressBar y dentro del Bucle For/Next de exportación le vas asignando a la propiedad VALUE de la misma el valor de Fila

Antes del Bucle

Progress.Min = 1
Progres.Max = .Rows-1

Entre el For Fila y el For Columna
Progress.Value = Fila

Saludos

de verdad te lo agradesco en el alma salio al pelo gracias men esto me canse de buscarlo en san google y nadie al parecer lo habia sitado
gracias de todo corazon me diste un aumento de sueldo con esto

tengo un problema, yo exporto la un flexgrid a excel pero al imprimir hay mas columnas que el ancho del papel, poreso necesito cambiar la orientacion antes de imprimir.

este es el codigo que uso.


Dim i, c As Integer
Dim apexcel As Variant
Set apexcel = CreateObject("excel.application")
' hace que excel se vea
apexcel.Visible = True
'agrega un nuevo libro
apexcel.Workbooks.Add
' pongo en negrita el titulo
apexcel.cells(1, 1).Font.Bold = True
apexcel.cells(1, 2).Font.Bold = True
apexcel.cells(1, 3).Font.Bold = True
apexcel.cells(1, 1).Font.colorindex = 4
apexcel.cells(1, 2).Font.colorindex = 7
apexcel.cells(1, 1).Font.Size = 14
apexcel.ActiveSheet.Range("A1:B1:C11").Merge 'combina las celdas
apexcel.cells(1, 1) = " Lista de productos "
'apexcel.Workbooks.Worksheets.Orientation = xlLandscape
With matriz

For i = 0 To .Rows - 1
.Row = i
For c = 0 To .Cols - 1
.Col = c

'poner formato a las filas

'apexcel.Cells(i + 1, C + 1) = Format(Now() + Int(i + 1), "yyyy/mm/dd")

'apexcel.Cells(i + 1, C + 1).NumberFormat = "dd/mm/yyyy h:mm "
apexcel.cells(i + 5, c + 1).Formula = .Text
Next c
Next i
' cambio el ancho de las columnas
apexcel.Columns.AutoFit

End With

'apexcel.ActiveWindow.SelectedSheets.PrintPreview
apexcel.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Set apexcel = Nothing