Importez des données d'Excel dans Access, à condition que le tableau dans Access ait été créé.
faible connexion
tamiser conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Mot de passe=;Propriétés étendues=Excel 5.0;Data Source=c:book1.xls"
sql = "SELECT * FROM [Feuille1$]"
définir rs = conn2.execute(sql)
bien que ce ne soit pas rs.eof
sql = "insérer dans xxx([a],[b],[c],[d]) valeurs('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend
conn.close
définir la connexion = rien
conn2.fermer
set conn2 = rien,
fonction fixsql(str)
faible nouvelle chaîne
nouvelle chaîne = chaîne
si est nul (newstr) alors
nouvelle chaîne = ""
autre
newstr = remplacer(newstr,"'","''")
finir si
fixsql = nouvelle chaîne
la fonction de fin
est importée dans la base de données SQL Server, si le fichier Excel et la base de données ne sont pas sur le même serveur, veuillez vous référer au code ci-dessus. Sur la même machine, vous pouvez vous référer au code suivant (il n'est pas nécessaire de créer un tableau au préalable, le programme créera automatiquement le tableau, en utilisant la première ligne de données dans Excel comme nom de champ du tableau) :
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";ID utilisateur=Admin;Mot de passe=;Propriétés étendues=Excel 5.0') ...[Feuil1$] "
conn.execute(sql)
conn.close
set conn = rien
de sélectionné sur le blog de sxycgxj