Sub exportRecordset()
	Dim rst As ADODB.Recordset

... 'Create recordset

	Dim objApp As Excel.Application
	Dim objWorkbook As Excel.Workbook
	Dim objWorksheet As Excel.Worksheet
	Dim objRange As Excel.Range

	Set objApp = New Excel.Application
	Set objWorkbook = objApp.Workbooks.Open("c:\fullPath\myExport.xls")
	Set objWorksheet = objWorkbook.Worksheets("ExportSheet")
	objWorksheet.Range("namedRangeForExport").Clear
	objWorksheet.Range("namedRangeForExport").CopyFromRecordset rst
	objWorkbook.Close True
	objApp.Quit
	Set objApp = Nothing
	rst.Close
End Sub