Guardar datos de una tabla Access en Excel con VBA

Hola, mi pregunta es:
Estoy en Access en la parte de "macros" y quiero exportar el resultado de una Query a una tabla Excel, el código que tengo es como sigue:
'creo la query
Query = "select EX_DATE from Tabla " & _
"where DATE<= date() "
'supongo que esto es para ejecutar la query
Set Divs = CurrentDb.OpenRecordset(Query)
'ahora quiero copiar la "tabla" creada a una hoja excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, Query, "nombre excel"
y mi segunda pregunta, tiene que ver con lo mismo ¿como salvo la información de un registro obtenido en una Query en una variable? por ejemplo el resultado que obtenga de la Query lo guarde en una variable String
dim input as string
'esto es solo para crear la query, pero luego que?
ex_date = "select EX_DT from table" & _
"where ticker = " & input
Muchas Gracias!