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