format of excel export (1 Viewer)

'Declare variables
Dim rs as ADODB.Recordset

'Some useful excel objects
Dim objXL As Excel.Application
Dim objWKBK As Excel.Workbook
Dim objWKSHT As Excel.Worksheet
Dim objRNG As Excel.Range

'Step 1 - generate a recordset from "qryReportsBureauT"
'You have not provided enough information - if qryReportsBureauT contains 'parameters or doesn't return every record in the table this will fail 
Set rs = adodb.recordset
With rs
    .ActiveConnection = CurrentProject.Connection
    .CursorType = adReadOnly
    .LockType = adLockOptimistic
    .Open "qryReportsBureauT", , , , adCmdTableDirect
End With

'Step 2 - Generate an instance of excel from access
Set objXL = CreateObject("excel.application")
Set objWKBK = objXL.Workbooks.Add()
Set objWKSHT = objWKBK.Worksheets("Sheet1")
'
'Step3 copy the data to excel and get rid of the recordset in this example 'copying it to cell A2 but you can make the range as big or small as you want
'You can use the recordcount property of the recordset to do this dynamically

objWKSHT.Range("A2").CopyFromRecordset rs
rs.close
set rs = nothing
objXL.Visible = True

'Step 4 - There is a pretty good article on the msdn on how to apply 'formatting to an excel range object