Excelで入力したデータをAccessのテーブルに追加したい

Accessに詳しい方に質問です。

Excelで入力したデータを、Accessのテーブルに追加したいのですが、サンプルソースなどを探してみるのですがなかなか見つからないので教えていただけると助かります。

勉強もかねて、家計簿を作ろうとしているのですが、
入力・集計結果表示はExcelで、データ管理をAccessで行いたいと思っています。例として、Accessのテーブルに追加したい項目として、
支出年月日、勘定科目、支出金額
を追加できるようにしたいのですが、VBAでどのように記述して良いのか行き詰まってしまっている状態です。

詳しい方、知恵を貸していただけないでしょうか。サンプルソースを掲示しているサイトでも教えていただけると助かります。

No.4 ベストアンサー 回答者： ARIKEN43 回答日時： 2009/05/10 19:36

mihimani51さん　今晩は！

>勉強もかねて、家計簿を作ろうとしているのですが、
Accessは初めてですか？
家計簿のレベルにも依りますが、Accessは可也面倒です。
最初からExcelで作成された方が楽だと思いますが。
■エクセルで作った家計簿を公開します↓
http://suin.asia/2008/08/08/excel-kakeibo.html
内容：Office2003 Excelで家計簿を作成しました。使う人はいないかもしれませんが、一応公開しておきます。
ソースをダウンロード出来ますので、先ずは人の作成したソースを理解され改善された上で物足りなければ、Accessの勉強をされた方が良いと思いますが。
★エクセル取込みしたテーブルから他のテーブルにレコード追加するには↓
http://www.accessclub.jp/bbs5/0034/vba10855.html
■Excelで作った備品一覧をAccessに取り込む↓
http://www.h7.dion.ne.jp/~htomix5/toss/komubunsy …
例題は備品一覧ですが、これを支出年月日、勘定科目、支出金額に置き換えればよいと思います。
私も現役時代に会社の大規模なデータを取り扱う為に、Access98でプログラムを組んだのですが当時はサイトも無く毎日図書館通いで随分苦労ましたが、現在のExcel2003は格段と進歩していますのでデータベースを使用するだけのデータ数ならExcelをお勧めします。

No.3 回答者： imogasi 回答日時： 2009/05/10 15:04

アクセスのモジュールに

Sub test12()
MsgBox CurDir & "\生徒追加.xls"
DoCmd.TransferSpreadsheet acImport, 8, "生徒", CurDir & "\生徒追加.xls", True, "A1:K3"
End Sub
をやってみました。
私の場合
生徒テーブルがあり１－１１フィールドあります。
エクセルにA-K列まで
第1行目はアクセスの生徒テーブルのフィールド名を入れました。
データは２行作りました。ーー＞A1:K3
データをエクセルシート（Sheet1)に追加して作りました。
実行すると、アクセスの生徒テーブルにレコードが追加されました。
２度実行するとダブって追加されます。
ーー
ADOなどで追加する方法も有るが、こちらが簡単です。
アクセステーブルオープン
MoveLast
AddNew
エクセル列よりフィールドに代入（始めにエクセルの世界に入る必要あり）
Update
繰り返し

No.2 回答者： mitarashi 回答日時： 2009/05/10 11:24

こちらもお勧め

http://home.att.ne.jp/zeta/gen/excel/c04p02.htm
こちらはAccessのVBA&ADOについてですが、接続の方法が若干異なるだけで、ExcelのVBAについても適用できます。
http://mail.accessclub.jp/ado/index.html

No.1 回答者： takachan7272 回答日時： 2009/05/10 01:14

ExcelのＶＢＡ関連の本には、だいたい載っていますね。

私が本以外で参考にしているサイトです。
http://www.asahi-net.or.jp/~ef2o-inue/top01.html

ＶＢＡ応用→データベース操作と進んで下さい。
接続自体は難しくありませんが・・・

この回答へのお礼

ありがとうございます。
さっそく参考にさせてもらいます。

お礼日時：2009/05/10 01:37