Visual Basic - exportar datagrid en vb6

If sbgrid1.Rows > 0 Then

    sbgrid1.Export ssExportTypeText, ssExportFieldNames & ssExportAllRows, App.Path & "\Exportados\" & sbgrid1.Caption & ".txt"

End If

If MsgBox("DESEA CREAR UNA PLANILLA EXCEL CON EL CONTENIDO DE ESTE FORMULARIO", vbYesNo, "MENSAJE") = vbYes Then

If Adodc1.Recordset.EOF = True Then

Adodc1.Refresh

Screen.MousePointer = vbDefault

MsgBox "No hay datos para Exportar a Excel"

Else

Adodc1.Recordset.MoveFirst

Call exportar_Datagrid(DataGrid1, DataGrid1.ApproxCount)

Screen.MousePointer = vbDefault

End If

End If

'liberias de exportacion a excel

Dim Obj_Excel   As Object

Dim Obj_Libro   As Object

Dim Obj_Hoja    As Object

Public Sub exportar_Datagrid(Datagrid As Datagrid, n_Filas As Long)

Dim i   As Integer

Dim j   As Integer

MousePointer = vbHourglass

If n_Filas = 0 Then

MsgBox "No hay datos para exportar a excel ": Exit Sub

Else

Set Obj_Excel = CreateObject("Excel.Application")

Set Obj_Libro = Obj_Excel.Workbooks.Add

Set Obj_Hoja = Obj_Excel.ActiveSheet

iCol = 0

For i = 0 To Datagrid.Columns.Count - 1

If Datagrid.Columns(i).Visible Then

iCol = iCol + 1

Obj_Hoja.Cells(1, iCol) = Datagrid.Columns(i).Caption

For j = 0 To n_Filas - 1

Obj_Hoja.Cells(j + 2, iCol) = Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j))

Next

End If

Next

Obj_Excel.Visible = True

With Obj_Hoja

.Rows(1).Font.Bold = True

.Rows(1).Font.Color = vbBlue

.Columns("A:Z").AutoFit

End With

End If

Set Obj_Hoja = Nothing

Set Obj_Libro = Nothing

Set Obj_Excel = Nothing

MousePointer = vbDefault

Exit Sub

End Sub

Obj_Hoja.Cells(j + 2, iCol) = Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j))