Copying Records to an Excel Spreadsheet : Access to Excel « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » Access to Excel 




Copying Records to an Excel Spreadsheet
 
Option Compare Database
Option Explicit

' be sure to select Microsoft Excel Object Library in the References dialog box

Public myExcel As Excel.Application

Sub CopyToExcel()
   Dim conn As ADODB.Connection
   Dim myRecordset As ADODB.Recordset
   Dim wbk As Excel.Workbook
   Dim myWorksheet As Excel.Worksheet
   Dim StartRange As Excel.Range
   Dim strConn As String
   Dim As Integer
   Dim As Variant

   On Error GoTo ErrorHandler

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"

   Set conn = New ADODB.Connection

   Set myRecordset = New ADODB.Recordset
   With myRecordset
      .Open "Employees", strConn, _
          adOpenKeyset, adLockOptimistic
   End With

   Set myExcel = New Excel.Application
   Set wbk = myExcel.Workbooks.Add
   Set myWorksheet = wbk.ActiveSheet
   myExcel.Visible = True

   i = 1
   With myRecordset
      For Each f In .Fields
         With myWorksheet
            .Cells(1, i).Value = f.Name
            i = i + 1
         End With
      Next
   End With

   Set StartRange = myWorksheet.Cells(21)
   StartRange.CopyFromrecordset myRecordset

   myRecordset.Close
   Set myRecordset = Nothing

   myWorksheet.Columns.AutoFit

   wbk.Close SaveChanges:=True, _
       FileName:="C:\ExcelFile.xls"

   myExcel.Quit
   Set conn = Nothing
   Exit Sub

ErrorHandler:
   MsgBox Err.Description, vbCritical, _
      "Automation Error"
   Set myExcel = Nothing
   Exit Sub
End Sub

 














Related examples in the same category
1.Exporting to a Spreadsheet
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.