Visual Basic - Codigo para exportar datos de una hoja de excel a access en visual basic

soi nuevo en el foro..alguien me puede ayudar con codigo, como hacer una aplicación que exporte datos de una hoja de excel a access por que ya probé de todo pero nada mas nada lo necesito para terminar mi proyecto de estadía en lenguaje visual basic, espero que no sea problema el no tener visual basic, todo lo estoy resolviendo con los macros que tiene access 2010. se lo agradecería mucho por favor!!

pega este texto en modulo

Dim Obj_Excel As Object
Dim Obj_Libro As Object
Dim Obj_Hoja As Object

Public Sub exportar_Datagrid(Datagrid As Datagrid, n_Filas As Long)
Dim i As Integer
Dim j As Integer

MousePointer = vbHourglass

If n_Filas = 0 Then
MsgBox "No hay datos para exportar a excel ": Exit Sub
Else

Set Obj_Excel = CreateObject("Excel.Application")
Set Obj_Libro = Obj_Excel.Workbooks.Open("x:\libro.xls")
Set Obj_Hoja = Obj_Excel.ActiveSheet

iCol = 0

For i = 0 To Datagrid.Columns.Count - 1
If Datagrid.Columns(i).Visible Then
iCol = iCol + 1
Obj_Hoja.Cells(1, iCol) = Datagrid.Columns(i).Caption
For j = 0 To n_Filas - 1
Obj_Hoja.Cells(j + 2, iCol) = Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j))
Next
End If
Next

Obj_Excel.Visible = True

With Obj_Hoja
.Rows(1).Font.Bold = True
.Rows(1).Font.Color = vbRed
.Columns("A:Z").AutoFit
End With
End If

Set Obj_Hoja = Nothing
Set Obj_Libro = Nothing
Set Obj_Excel = Nothing

MousePointer = vbDefault

Exit Sub

End Sub

luego en tu formulario de datos tendras que tener un datagrid que te muestre los datos

eso lo haces conectado a un ado
se rellena solo
entonces usas un boton dentro del formulario

luego desde un boton que se llame imprimir
usa el siguiente codigo


If Adodc3.Recordset.EOF = True Then
Adodc3.Refresh
Else
Adodc3.Recordset.MoveFirst
Call exportar_Datagrid(DataGrid1, DataGrid1.ApproxCount)
End If

donde se conoce como adodc3 el objeto que esta conectado a la tabla de la base de datos y rellena el datagrid

entonces le pasas el conteo al formulario llamando al modulo con esta funcion que te pase

en el codigo del modulo hay un texto que dice x:\libro.xls

en esa ubicacion debes crear una planilla en blanco para actue de intermediaria entre el sistema y la exportacion

a esta planilla ponle atributos de solo lectura y lo dejas oculto en lo posible con atributos shr
asi no podra ser visto por el usuario y tendra que obligatoriamente guardar una copia de la exportacion en otro lugar asi mantienes la planilla limpia

saludos

en donde cide ubicacion debes poner la ubicacion de tu sistema y en esta ubicacion pones tu planilla

saludos para que no vayas a tomar el ejemplo por completo adaptalo a tu gusto

este ejemplo funciona y sin errores

gracias lo voi a probar aver que sale...gracias por tomar tu tiempo para responder

hola disculpa la molestia pero hay un detalle en una parte del codigo que no entiendo y es esta

If Adodc3.Recordset.EOF = True Then
Adodc3.Refresh
Else
Adodc3.Recordset.MoveFirst
Call exportar_Datagrid(DataGrid1, DataGrid1.ApproxCount)
End If

no ce a que te refieres al decir que le pase el conteo al formulario llamando al modulo con esta funcion que me pasaste, ya probe todo el codigo y efectivamente no marca error solo en esta parte que me marca "ERROR 424" OBJETO NO ENCONTRADO por favor si me puedas ayudar te la agradeceria de nuevo y lo otro expliacame un poco mas sobre la planilla como tiene que ser si, una base de datos en blanco y con tablas o sin tablas o como, y como guardarlo con atributos shr. es que soi nuevo en visual basic.
gracias de antemano ALFONSO

AMIGO EN DONDE DICE X:\LIBRO.XLS

SI MIRAS BIEN DEBES PONER LA DIRECCION DONDE TIENES UNA PLANILLA EN BLANCO QUE INTERACTUA CON EL FORM PARA EXPORTAR LOS DATOS

SALUDOS