エクセル側からアクセスへデータ転送

質問

エクセル側からアクセスへデータを転送したく、

Sub Data_Add()
Dim db As New ADODB.Connection
Dim Rs As New ADODB.Recordset

db.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\Owner\Desktop\A.mdb;"

Rs.Open "B", db, adOpenStatic, adLockPessimistic

Rs.AddNew

Rs!a = Worksheets("1").Range("A1").Value
Rs!b = Worksheets("1").Range("B1").Value
Rs!c = Worksheets("1").Range("C1").Value
Rs!d = Worksheets("1").Range("D1").Value
Rs!e = Worksheets("1").Range("E1").Value

Rs.Update

Rs.Close

db.Close
これで、エクセルからアクセス"A"のテーブル"B"のフィールド"a"にエクセルの"A1"を、フィールド"b"にエクセルの"B1"をという風に、セル1つづつを転送させる事はできましたが、セル1つづつでは無く、Ａ列をフィールド"a"に、B列をフィールド"b"にという風に、列ごと追加するにはどの様にしたらいいですか？
又、追加ではなく更新（すでにあったデータに追加するのではなく、上書き）するにはどの様にしたらいいですか？
追加、更新それぞれしたいので、誰か教えて頂けませんか？
よろしくお願いします。

回答No.4

rivoisu · ベストアンサー

>エクセル側には例えば"Ａ1"から"E10"まで、10行データがあるとして、アクセスでこのデータをインポートするのでは無く、エクセル側からアクセスへ送りたいのですが。
あなたのコードでDBとのコネクションのopen
テーブルをopenができているのでしたら
Rs.addnew から　Rs.Updateまでが1行分の処理ですからこれをLoopする。
後DB、RsともにCloseの後消す余殃にしたほうがいいですね
set DB=Nothing

お礼

ありがとうございます。
やってみます。空白の行の場合はLoopしない様にしたらいいんですね。

回答No.3

rivoisu

いえいえAccess側からインポートとかいう問題ではなく

「列ごと」という考え方がおかしいのではないでしょうか

と言っているのです。

補足

「列ごと」がおかしいのであれば、全ての行をと表現したら良いのでしょうか？
エクセル側には例えば"Ａ1"から"E10"まで、10行データがあるとして、アクセスでこのデータをインポートするのでは無く、エクセル側からアクセスへ送りたいのですが。

回答No.2

rivoisu

”列ごと”というのがどうもデータベースというかいわゆるコンピュータのデータ処理の考え方にはない（普通ではない）
本でも読んで一般的な考え方を勉強してみてください
データベースは列数が固定で行数が可変。
一般的にデータベースも含めて外部データは行単位で扱います。

お礼

なるほど私の勉強不足でした。
アクセス側からインポートするしか方法は無さそうですね。

回答No.1

rivoisu

更新はaddnewがいらない。
現在位置づけされているデータが上書きされる。
列ごとの転送はできないと思います。逆はできるのですが（RSからシートへの転記）

更新は通常キーが一致するものに対して行われると思いますが、RSのその行にカーソルが位置づけされている必要があります。ここでデータの転送をおこないUpdateで更新します。

補足

列ごとの転送ができないのなら、データのあるセルだけを転送はできませんか？セル一つづつしか無理でしょうか？