Dim oExcel As Object
    Dim oBook As Object
    Dim I, J As Integer

    Set oExcel = CreateObject("Excel.Application") '对象
    Set oBook = oExcel.Workbooks.Add() ''新建工作表
    oExcel.Visible = True

    For I = 1 To DataGrid1.Columns.Count
          oBook.Worksheets(1).Cells(J + 2, I) =N
    Next I

    Set oBook = Nothing
    Set oExcel = Nothing
'Set oBook = oExcel.Workbooks.Add() 新建工作表
'oBook.Worksheets('工作表N...').