Datagridview a excel

El siguiente ejemplo muestra como exportar el contenido de un datagrid completo a una hoja de excel
 
Formulario con el Datagrid a exportar

 
Para realizar el ejemplo colocar en un formularioun control Datagrid llamado Datagrid1.
Luego desde el menú referencias marcar Activex Data Object para poder usar ADO
Crear una base de datos Access llamada bd1.mdb. Dentro de esta crear una tablallamada Tabla1 con algunos campos y registros. La base de datos debe estar en la carpeta donde está el proyecto de vb.
Importante: Por defecto se exporta a un nuevo libro de Excel. Si se desea exportara uno existente, colocar la ruta del libro en el parámetro Open del objeto Workbooks, por ejemplo
-------------------------------------------------
Set Obj_Libro = Obj_Excel.Workbooks.Open(La ruta)
Por último agregar un botón que será el que ejecuta la función llamada Exportar_DataGrid. A esta función se le debe enviar como parámetro el control Datagrid y un segundo parámetro que especificala cantidad de filas a exportar. Por defecto se exportan todas las filas, indicando la propiedad AproxCount que devuelve dicho número.
Nota. Este ejemplo ha sido probado con Microsoft Access 2000 yExcel 2000.
Código fuente del formulario:
Texto planoCopiar código fuenteImprimir
1. ' -----------------------------------------------------------------------------------------   
2.' \\ --  Descripción       : Exportar DataGrid a Excel   
3. ' \\ --  Controles         : Un Datagrid, un CommandButton y la referencia a ADO   
4.' \\ --  Autor             : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/   
5. ' -----------------------------------------------------------------------------------------   
6.   
7. ' -- Variables para la base de datos   
8.Dim cnn         As Connection   
9. Dim rs          As Recordset   
10. ' -- Variables para Excel   
11. Dim Obj_Excel   As Object  
12. Dim Obj_Libro   As Object  
13....