Importe datos de Excel a Access, siempre que se haya creado la tabla en Access.
conexión tenue
conn2 tenue
establecer conexión=CrearObjeto("ADODB.Conexión")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Contraseña de la base de datos=;Fuente de datos=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Contraseña de base de datos=;Propiedades extendidas=Excel 5.0;Fuente de datos=c:book1.xls"
sql = "SELECCIONAR * DE [Hoja1$]"
establecer rs = conn2.execute(sql)
mientras no rs.eof
sql = "insertar en xxx([a],[b],[c],[d]) valores('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conexión.ejecutar(sql)
rs.movenext
wend
conn.close
establecer conexión = nada
conn2.cerrar
set conn2 = nada
función fixsql(str)
noticias tenues
noticiastr = cadena
si es nulo (newstr) entonces
noticiastr = ""
demás
cadenanoticias = reemplazar(cadenanoticias,"'","''")
terminar si
fixsql = noticiastr
la función final
se importa a la base de datos del servidor Sql, si el archivo Excel y la base de datos no están en el mismo servidor, consulte el código anterior. En la misma máquina, puede consultar el siguiente código (no es necesario crear una tabla primero, el programa creará la tabla automáticamente, utilizando la primera fila de datos en Excel como nombre de campo de la tabla):
dim conn
establecer conexión=CrearObjeto("ADODB.Conexión")
conn.Open ("controlador={SQL Server};servidor=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";ID de usuario=Admin;Contraseña=;Propiedades extendidas=Excel 5.0') ...[Hoja1$] "
conn.ejecutar(sql)
conn.cerrar
set conn = nada
seleccionado del Blog de sxycgxj