VB导出excel的三种方法

Dim newxls As Excel.Application
       Dim newbook As Excel.Workbook
       Dim newsheet As Excel.Worksheet
      ' Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
       set newxls= new Excel.application
       Set newbook = newxls.Workbooks.Add   '创建工作簿
       Set newsheet = newbook.Worksheets(1) '创建工作表
       If Adodc1.Recordset.RecordCount > 0 Then
         newxls.Visible = True
         For i = 0 To DataGrid1.Columns.Count - 1
              newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption
         Next i
         '指定表格内容
         Adodc1.Recordset.MoveFirst
         Do Until Adodc1.Recordset.EOF
              r = Adodc1.Recordset.AbsolutePosition
              For c = 0 To DataGrid1.Columns.Count - 1
                  newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c)
              Next c
              Adodc1.Recordset.MoveNext
         Loop
       End If



或者是

Dim newxls As Excel.Application
      Dim newbook As Excel.Workbook
      Dim newsheet As Excel.Worksheet