Accessにエクセルからデータをインポートしたい（ＶＢＡ）

Access(2000)のＶＢＡでExcel(2000)からデータをインポートしたいと思います。
詳細は以下の通りです。

フォームでコマンドボタンをクリック時にダイアログボックスが開き、ファイルを指定し、該当のシート（シート名はどのファイルも固定）のデータをアクセスのテーブルにインポートしたい。

どうしたらできるのかここ数日悩んでいます。
よい方法がありましたら教えてください。

No.1 ベストアンサー 回答者： ShadowMoon 回答日時： 2002/07/30 14:18

>フォームでコマンドボタンをクリック時にダイアログボックスが開き、ファイルを>指定し、該当のシート（シート名はどのファイルも固定）のデータをアクセスのテ>ーブルにインポートしたい。

過去に同様な質問がありました。（http://oshiete1.goo.ne.jp/kotaeru.php3?q=268353h …を参照ください。）
まず
>フォームでコマンドボタンをクリック時にダイアログボックスが開き、ファイルを>指定し、
というところはAccessDeveloper版でなければダイアログボックスは使えません。
そこでWindowsAPIを使用します。（下記参考URL参照ください。）

これを使ってファイルの情報が得られたらあとはデータをインポートすればよいだけです。がんばってください。

PS　このWindowsAPIはファイルを開くダイアログボックスですが、このサンプルコードのOPENをSAVEに変えたらファイルを保存のダイアログボックスになるようです。

参考URL：http://www.moug.net/cgi-bin/technic.cgi?acvba+TI …

この回答へのお礼

ありがとうございます。
Ｎｏ２をやってみた後に、AccessDeveloper版で試してみたいと思います。

お礼日時：2002/07/31 15:13

No.2 回答者： muran 回答日時： 2002/07/30 18:52

TransferSpreadsheet メソッド

を使用すれば、指定したファイルのデータをインポートできます。
ヘルプにも載っているので確認してみてください。

使用例：TBL_TESTというテーブルにtest.xlsの内容をインポートする

DoCmd.TransferSpreadsheet acImport, 3,"TBL_TEST","C:\test\test.xls"

この回答への補足

できました。引数の宣言にちょっと戸惑ってしまいましたが…。
テーブルのインポートはできましたが、ダイアログでファイルを選択したいので、
Ｎｏ１の方をやってみます。

補足日時：2002/08/01 17:46

この回答へのお礼

ありがとうございます。
インポートはできそうなんですけど、その時にダイアログが開くかどうか・・・
やってみないことには解りませんね。
今、エクセルの方でもＶＢＡをやってるので、なかなか捗りません！！

お礼日時：2002/07/31 15:32