Exportar un DataGrid a Excel

[sniper_lcd]

Hola buenas tardes, quisiera saber si alguien me puede ayudar con esto, es que hago una consulta a mi base de datos y los resultados los despliego en un DataGrid, pero quisiera exportarlo a excel, pero no se como podrian ayudarme, se los agradeceria mucho!!

Saludos

[xknown]

Busca en el foro, vas a encontrar varios snippets que hacen lo que quieres.

Saludos

[sniper_lcd]

Hola necesito de su ayuda por favor, ya cheque pero no me esta funcionando el codigo, porque en la linea que es por ejemplo

Dim oExcel As Excel.ApplicationClass
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.WorkbookClass
Dim oSheet As Excel.Worksheet

oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oExcel.Workbooks.Add
oSheet = oBook.Sheets(1)

Al momento de correr el codigo, me marca un error en la linea que esta de color rojo y lo qeu dice es lo siguiente

"old format or invalid type library"

y no c que haceeeeeeeeerrr

Ayudenme porfavor