convert flexgrid ke excel di visual basic 6

gistfile1.txt

Private Sub cmdConvertExcell_Click()

''Flex2Excel fgData, "Export of Data"

'

    Dim xlObject    As Excel.Application

    Dim xlWB        As Excel.Workbook

'

        Set xlObject = New Excel.Application

        'This Adds a new woorkbook, you could open the workbook from file also

        Set xlWB = xlObject.Workbooks.Add

'

        Clipboard.clear 'Clear the Clipboard

        With fgData

            'Select Full Contents (You could also select partial content)

            .col = 0               'From first column

            .row = 0               'From first Row (header)

            .ColSel = .Cols - 1    'Select all columns

            .RowSel = .rows - 1    'Select all rows

            Clipboard.SetText .Clip 'Send to Clipboard

        End With


        With xlObject.ActiveWorkbook.ActiveSheet

            .Range("A1").Select 'Select Cell A1 (will paste from here, to different cells)

            .Paste              'Paste clipboard contents

        End With


        ' This makes Excel visible

        xlObject.Visible = True

End Sub