VB中Grid控件的打印方法

teger
　　Dim xlApp As Excel.Application
　　Dim xlBook As Excel.Workbook
　　Dim xlSheet As Excel.Worksheet
　　Set xlApp = CreateObject("Excel.Application")
　　xlApp.Visible = True
　　Set xlBook = xlApp.Workbooks.Add
　　Set xlSheet = xlBook.Worksheets(1)
　　xlSheet.Cells(6, 1) = "i"
　　For i = 0 To gridrow
　　 grid1.Row = i
　　 For j = 0 To 6
　　　Grid1.Col = j
　　　If IsNull(Grid1.Text) = False Then
　　xlSheet.Cells(i + 5, j + 1) = Grid1.Text
　　　End If
　　 Next j
　　Next i　End Sub