Dim appExcel As Excel.Application

Dim wbk As Excel.Workbook

Dim wks As Excel.Worksheet

 

Dim sOutput As String

 

Dim rng As Range

Dim dbs As DAO.Database

Dim rst As DAO.Recordset

Dim sSQL As String

 

Const cTabTwo As Byte = 1

 

DoCmd.Hourglass True

 

' set to break on all errors

Application.SetOption "Error Trapping", 0

 

sOutput = CurrentProject.Path & "c:\Book1.xls"

 

' Create the Excel Applicaiton, Workbook and Worksheet and Database object

Set appExcel = Excel.Application

Set wbk = appExcel.Workbooks.Open(sOutput)

Set wks = appExcel.Worksheets(cTabTwo)

 

 

sSQL = "select * from qry_Client_Ranking"

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)

 

Set rng = A1: G26 (How TO DEFINE THE RANGE OBJECT?)

rng.CopyFromRecordset rst