请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?

这里有段代码，可参考一下PrivateSubcommand3_Click()DimiAsIntegerDimjAsIntegerDimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.Worksheet
SetxlApp=CreateObject("Excel.Application")xlApp.Visible=TrueSetxlBook=xlApp.Workbooks.AddOnErrorResumeNextSet xlBook=xlApp.Workbooks.AddOpen("d:\text2.xls")Set xlSheet=xlBook.Worksheets(1)xlSheet.Cells(6,1)="i"Fori=0Togridrowgrid1.Row=iForj=0To6Grid1.Col=j
If IsNull(Grid1.Text)=FalseThenxlSheet.Cells(i+5,j+1)=Grid1.TextEndIfNextjNextiExitSub