Importieren Sie Daten aus Excel in Access, sofern die Tabelle in Access erstellt wurde.
schwacher Anschluss
dimmen Sie Verbindung2
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:Datenbankkennwort=;Erweiterte Eigenschaften=Excel 5.0;Datenquelle=c:book1.xls“
sql = „SELECT * FROM [Sheet1$]“
set rs = conn2.execute(sql)
während nicht rs.eof
sql = "insert into xxx([a],[b],[c],[d]) Values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend
conn.close
setze conn = nichts
conn2.close
set conn2 = nichts
Funktion fixsql(str)
dim newstr
newstr = str
wenn isnull(newstr) dann
newstr = ""
anders
newstr = ersetzen(newstr,"'","''")
Ende wenn
fixsql = newstr
die Endfunktion
in die SQL Server-Datenbank importiert wird und sich die Excel-Datei und die Datenbank nicht auf demselben Server befinden, lesen Sie bitte den obigen Code. Auf demselben Computer können Sie auf den folgenden Code verweisen (es ist nicht erforderlich, zuerst eine Tabelle zu erstellen, das Programm erstellt die Tabelle automatisch und verwendet dabei die erste Datenzeile in Excel als Feldnamen der Tabelle):
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"";User ID=Admin;Password=;Extended Properties=Excel 5.0') ...[Blatt1$] "
conn.execute(sql)
conn.close
set conn = Nothing
ausgewählt aus dem Blog von sxycgxj