Export data to an Excel table in VB

The following is how to export data from msflexgrid to excel:Code:

Dim xlapp as Excel. Application

Dim xlbook as Excel. Workbook
Dim xlsheet as Excel. Worksheet
Dim I as integer
Dim J as integer

Set xlapp = Createobject ("Excel. application") 'Initialization
Set xlbook = xlapp. workbooks. Add
Set xlsheet = xlbook. worksheets (1)

For I = 0 to msflexgrid1.rows-2 'write data in msflexgrid1 to an Excel table
For J = 0 to 4
Xlsheet. cells (I + 1, J + 1) = msflexgrid1.textmatrix (I, j)
Next J
Next I
Xlapp. Visible = true'. The Excel table is displayed after the parameter is set.