Binaryworld - Fastest way to export MSFlexgrid data to Excel file. ... [ VB -> Excel ]

'//This function will export Grid (MSFlexgrid) to Excel file
Public Function ExportGrid(TheFlexgrid As MSFlexGrid, _
TheRows As Integer, TheCols As Integer, Optional WorkSheetName As String)

  Dim i As Integer
  Dim o As Integer
  Dim sString As String

  'EarlyBinding (Requires Reference to Microsoft Excel library)

  '////////////////////////////////////////////
  '//For early Binding use following block
  'Dim objXL As New Excel.Application
  'Dim wbXL As New Excel.Workbook
  'Dim wsXL As New Excel.Worksheet

  'LateBinding

  '////////////////////////////////////////////
  '//For late binding use following block//////
  Dim objXL, wbXL, wsXL

  Set objXL = CreateObject("Excel.Application")
  Set wbXL = CreateObject("Excel.Workbook")
  Set wsXL = CreateObject("Excel.Worksheet")
  '////////////////////////////////////////////

  Dim intRow As Integer  ' counter
  Dim intCol As Integer  ' counter

  If Not IsObject(objXL) Then
    MsgBox "You need Microsoft Excel to use this function", _
        vbExclamation, "Print to Excel"
    Exit Function
  End If

  On Error Resume Next

  ' open Excel
  objXL.Visible = True
  Set wbXL = objXL.Workbooks.Add
  Set wsXL = objXL.ActiveSheet

  ' name the worksheet
  With wsXL
    If Not WorkSheetName = "" Then
      .Name = WorkSheetName
    End If
  End With

  sString = ""
  For i = 0 To TheRows - 1
    For o = 0 To TheCols - 1
      If Len(sString) = 0 Or Right(sString, 1) = vbCr Then
      Else
        sString = sString & vbTab
      End If
      sString = sString & TheFlexgrid.TextMatrix(i, o)
    Next
    sString = sString + vbCr
  Next
  If Right(sString, 1) = vbCr Then sString = Left(sString, Len(sString) - 1)
  Debug.Print sString

  Clipboard.Clear
  Call Clipboard.SetText(sString, 1)
  wsXL.Paste
  Clipboard.Clear

  wsXL.Columns("A:Z").EntireColumn.AutoFit

End Function