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

[ngiu]

我想实现在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时在左边出现一列空白列，请高手指教如何修改以上代码，修正此问题。
问题比较低级，希望高手指教。
另外数据较大时速度比较慢，是否存在解决方法。

[ljhdi]

For i = 0 To msgList.Rows - 1

这里改为For i = 1 To msgList.Rows - 1
====

[ljhdi]

是不是最后一列也没显示

[ngiu]

不好意思，您说的方法不行，不标题行去掉了，仍然左边有个空白列。
以上的代码数据显示齐全，就是多了个空白列，请指教。谢谢

[zhangqiushui]

顶

[squall9568]

设置msgList.colwidth(0)=0就可以了

[MmMVP]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=190658