MSflexgrid查询结果导出到EXCEL，EXCEL中显示问题。（新手请教）

我想实现在MSflexgrid查询结果导出到EXCEL。找到代码如下：
Private Sub Command1_Click()
Dim Xlapp As Object
Dim i As Long
Dim j As Long
Dim Header As String
Dim xlsheet As Excel.Worksheet
Set Xlapp = CreateObject("excel.application")
Xlapp.Workbooks.Add
Xlapp.Visible = True
Set xlsheet = Xlapp.Worksheets.Add
With xlsheet
' .Range("C1") = Header
' .Range("C1").Font.Size = 20
' .Range("A2") = "´Ó" & DTPicker1.Value & "µ½" & DTPicker2.Value & "Ϊֹ:"
For i = 0 To msgList.Rows - 1
For j = 0 To msgList.Cols - 1
.Cells(i + 1, j + 1) = msgList.TextMatrix(i, j)
Next
Next
End With
Set xlsheet = Nothing
Set Xlapp = Nothing
End Sub

但是导出到EXCEL时在左边出现一列空白列，请高手指教如何修改以上代码，修正此问题。
问题比较低级，希望高手指教。
另外数据较大时速度比较慢，是否存在解决方法。