¡Urgente~! Programación con VB. Importar datos de Excel a Access.

Hace algún tiempo escribí una DLL que contiene la función mencionada en el cartel. La operación ADO (refiriéndose a la biblioteca de objetos ADO Biblioteca Microsoft ActiveX Data Objects 2.x) es una función a continuación.

Los parámetros incluyen: nombre del libro de trabajo EXCEL, ruta del archivo EXCEL, nombre de la tabla de la base de datos ACCESS, ruta de la base de datos ACCESS, versión de EXCEL (debido a que solo se usa EXCEL 2003, no se escriben todas las declaraciones de enlace de 2007, si puede usar it También puedes escribir una oración tú mismo).

Función pública ExcSaveToAccess(sSheetName, sExcelPath, sAccessTable, sAccessDBPath, sExcVersions) como booleano '//Guardar EXCEL en ACCESS////////////

Dim SQL como cadena

Dim conn como ADODB.Connection

Establecer conn = Nuevo ADODB.Connection

conn.Open "PROVIDER = Microsoft.Jet.OLEDB .4.0 ;" & "Data Source=" & sAccessDBPath

SQL = "seleccione * en [" & sAccessTable & "] de [" & sExcVersions & ";database=" & sExcelPath & "].[ " & sSheetName & "$]"

conn.Execute SQL

conn.Close

Establecer conn = Nada

ExcSaveToAccess = True

Salir de la función

ConErr:

ExcSaveToAccess = False

Finalizar función