Save VsFlexGrid data to excel

1. Private Sub FlexToExcel()
2. Dim xlObject    As Excel.Application
3. Dim xlWB        As Excel.Workbook
4.        
5.     Set xlObject = New Excel.Application
7.     'This Adds a new woorkbook, you could open the workbook from file also
8.     Set xlWB = xlObject.Workbooks.Add
9.                
10.     Clipboard.Clear 'Clear the Clipboard
11.     With MSFlexGrid1
12.         'Select Full Contents (You could also select partial content)
13.         .Col = 0               'From first column
14.         .Row = 0               'From first Row (header)
15.         .ColSel = .Cols - 1    'Select all columns
16.         .RowSel = .Rows - 1    'Select all rows
17.         Clipboard.SetText .Clip 'Send to Clipboard
18.     End With
19.            
20.     With xlObject.ActiveWorkbook.ActiveSheet
21.         .Range("A1").Select 'Select Cell A1 (will paste from here, to different cells)
22.         .Paste              'Paste clipboard contents
23.     End With
24.    
25.     ' This makes Excel visible
26.     xlObject.Visible = True
27. End Sub