Visual Basic - ENVIAR A EXCEL

HOLA A TODOS, ESPERO ME PUEDAN AYUDAR.

NECESITO ENVIAR DATOS A UN ARCHIVO EXCEL ME DIANTE UNA CONSULTA HECHA A LA BASE DE DATOS.

ES DECIR LA CONSULTA NO LA QUIERO VER REFLEJADA EN EL PROGRAMA VB SINO DENTRO DE UNA HOJA EXCEL.

LA IDEA QUE SE ME OCURRE ES TENERLA DENTRO DE UN BOTON EN EL PROGRAMA VB Y QUE AL DARLE CLICK GENERE LA CONSULTA Y LA MUESTRE EN EXCEL

LOS DATOS QUE TRAIGA LA CONSULTA SERAN DIFERENTES YA QUE SE PRETENDE QUE SEA UN LISTADO POR EMPLEADO DE SU PRODUCTIVIDAD Y POR SUPUESTO LA PRODUCTIVIDAD VARIA CON EL TIEMPO.

ESPERO ME HAYA DADO A ENTENDER.

GRACIAS Y ESPERO SUGERENCIAS.

EN EL SIGUIENTE LINCK ENCONTRARAS UN EJEMPLO QUE TE PERMITE CARGAR UNA CONSULTA A UNA GRID Y LUEGO TRASLADARLA A UNA HOJA EXCEL.
CREO QUE SI SOLO NECESITAS LA INTERFACE DIRECTA MODIFICAR EL CODIGO PARA QUE TE PERMITA GENERA LA CONULTA Y LANZARLA DIRECTAMENTE DESDE DE UN BOTON, CLARO QUE LA PREVISUALIZACION EN LA GRID ES MUY NECESARIA DEBIDO Q EU TE PERMITE TENER UN FILTO ANTERIOR A LA CAGA DE DATOS EN UNA HOJA EXCEL

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/174-exportar-dbgrid-excel.htm

POR EL BIEN DE ESOS EMPLEADOS ESPERO QUE CONTROLES CORRECTAMENTE SU PRODUCTIVIDAD.
SUERTE

HOLA, GRACIAS POR TU AYUDA

PERO QUE CREES?

CUANDO CARGO EL CODIGO Y LO MODIFICO PARA QUE CARGUE CON MIS PARAMETROS, AL DARLE CLICK AL BOTON PARA QUE EXPORTE LA CONSULTA A EXCEL ME ENVIA ESTE ERROR:

"Subscript out of range"

SABES A QUE SE REFIERE?

DE ANTEMANO TE AGRADEZCO TU AYUDA, Y ME DESPIDO DE TI ESPERANDO RESPUESTA.