Visual Basic - Exportar a excel datagrid

Dim i As Integer, j As Integer, icol As Integer

If nfilas = 1 Then

MsgBox "Nohay datos que enviar a Excel": Exit Sub

Else

Set objExcel = CreateObject("Excel.application")

Set xlibro = objExcel.Workbooks.Add(App.Path & "\ProductosSalida.xls")

objExcel.Visible = True

Set hoja = objExcel.ActiveSheet

icol = 0

For i = 1 To datagrid.Columns.Count - 1

    If datagrid.Columns(i).Visible Then

        icol = icol + 1

        hoja.Cells(1, icol) = datagrid.Columns(i).Caption

    For j = 0 To nfilas - 1

    ='/img/emoticons/omg.gif' width='22' height='22' border='0' />    hoja.Cells(j + 2, icol) = datagrid.Columns(i).CellValue(datagrid.GetBookmark(j))

    Next

    End If

Next

hoja.Rows(1).Font.Bold = True

hoja.Rows(1).Font.Color = vbBlack

hoja.Columns("A:Z").AutoFit

End If

Set hoja = Nothing

Set xlibro = Nothing

Set objExcel = Nothing