请问如何将DataGrid所搜到显示的数据导入到一个新的Excel里？

一个成功案例

Private Sub command2_Click()
Dim I As Integer, r As Integer, c As Integer
Dim XB As Excel.Application, FS1 As Object
Dim XGZB As Excel.Workbook
Dim XWJ As Excel.Worksheet
Set XB = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
Set XGZB = XB.Workbooks.Add '创建工作簿
Set XWJ = XGZB.Worksheets(1) '创建工作表
Set FS1 = CreateObject("Scripting.FileSystemObject")
For J = 0 To 23
For I = 0 To SST
XWJ.Cells(I + 1, J + 1) = Trim(DataGrid1.TextMatrix(I, J))
Next I
Next J

Dim myval As Long
Dim SQ1 As String
On Error GoTo ErrSave
SQ1 = App.Path & "\转换文件.xls"'文件路径和文件名
If FS1.FileExists(SQ1) = True Then
FS1.DeleteFile SQ1, True
End If
XWJ.SaveAs SQ1 '导入文件路径和文件名
MsgBox "Excel文件保存成功！" & vbCrLf & vbCrLf &