Access でテーブルが作成されている場合は、Excel から Access にデータをインポートします。
薄暗い
ディムコン2
set conn=CreateObject("ADODB.Connection")
conn.Open "プロバイダ=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:データベースパスワード=;データソース=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "プロバイダ=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:データベースパスワード=;拡張プロパティ=Excel 5.0;データソース=c:book1.xls"
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
rs.eofではない間
sql = "xxx([a],[b],[c],[d]) に挿入 value('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(SQL)
rs.movenext
wend
conn.close
conn = 何も設定しない
conn2.close
set conn2 = nothing
function fixsql(str)
薄暗いニュースター
新しいstr = str
isnull(newstr) の場合
newstr = ""
それ以外
newstr = replace(newstr,"",""")
終了する場合
fixsql = newstr
end 関数を
SQL Server データベースにインポートするときに、Excel ファイルとデータベースが同じサーバー上にない場合は、上記のコードを参照してください。同じマシン上で、次のコードを参照できます (最初にテーブルを作成する必要はありません。Excel のデータの最初の行をテーブルのフィールド名として使用して、プログラムが自動的にテーブルを作成します):
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','データ ソース=""c:book1.xls"";ユーザー ID=管理者;パスワード=;拡張プロパティ=Excel 5.0') ...[シート1$] "
conn.execute(sql)
conn.close
set conn =
sxycgxj のブログから何も選択されてい
ません