si todavia lo necesitas , lo que puedes hacer es que cuando generes la consulta vayas creando el archivo excel, me explico:
Set ext = CreateObject"Scripting.FileSystemObject")
if ext.FileExists(strnombre) then
ext.DeleteFile(strnombre)
end if
Set ex2 = ext.CreateTextFile(strnombre)
aqui estoy creando el archivo
aqui lo llemo
ex2.writeline("n°" & chr(9) & "Mov_codigo" )
y despues para llamarlo pones un boton y dentro del mismo un javascript:window.open(´´,´´) y ahi pones el nombre del archivo que creaste ..
lo que si, esto solo se graba en alguna parte que tenga acceso total, o sea donde te permita insertar y eliminar .
Adios , ojala te sirva