Busque el código fuente para importar Excel a sqlserver
Le brindamos un fragmento de código para cargar datos directamente a SqlServer en Excel:
Se puede modificar apropiadamente,
FormName es el formulario en la base de datos.
DBString es el campo de conexión de la base de datos,
Sub?UploadData()
Si ?FormName?=?"" ?Entonces?Exit?Sub
Dim?a?As?New?ADODB.Connection
Dim?b?As?New?ADODB.Recordset a.Open?DBString
RowCount?=?Aplicación .CountA(Filas ("1:1"))
For?i?=?2?To?application.counta(range("a:a"))
sql ?=?"
Establecer?b?=?Nada
For?j?=?1?To?RowCount?-?1
sql?= ?sql?, ?"
Siguiente
sql?=?SQL?
SQL?
b.Open?Source:= sql,?ActiveConnection :=a
Siguiente
MsgBox?"OK!"
End?Sub
Hay muchas maneras, así que basta con encontrar métodos eficaces
para completar la tarea. Debe comprender las propiedades de conexión de la base de datos. Los siguientes son los campos de conexión, que pueden modificarse según su situación real. Debe configurar los parámetros básicos usted mismo.
Provider=SQLOLEDB.1Persist Security. Info=False; ID de usuario= md-inspection;PWD= mdOL20!31)25;Directorio inicial=Online_Inspection;Fuente de datos=Cduvmdb01,1433
Además, es necesario agregar referencias relevantes al VBE página: