ACCESS2000からEXCELファイルを参照したい

質問

こんにちは。
ACCESS2000から、EXCELのファイルを参照し、
セルの内容を取得したいのですが、やり方がわかりません。

どなたかお知恵をお貸しください。
できれば、具体的な記述方法を知りたいです。

回答No.2

tomotomo0906 · ベストアンサー

こんにちは　こんな感じでしょうか・・・

Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim lngRow As Long
dim lngCol As Long

Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open("c:\test.xls") ←　参照するファイル名
Set objSheet = objBook.Sheets("sheet1") ←　参照するシート名

For lngRow = 1 To 100
For lngCol = 1 To 20
Debug.Print objSheet.Cells(lngRow,lngCol).Value
Next lngCol
Next lngRow

Set objSheet = Nothing
Set objBook = Nothing

Set objExcel = Nothing
objExcel.Quit
Set objExcel = Nothing

動作確認してないのでちょっと不安ですが、よかったら参考にして下さい。

お礼

回答ありがとうございます。
tomotomo0906さん、１日に２回も助けていただき
本当に感謝いたします。
ありがとうございました。

回答No.1

O_cyan

Excelのデータをテーブルにリンクすれば参照できます。

オブジェクトの欄から[テーブル]を選択して。
[ファイル(F)]メニューから[外部データの取り込み]-[テーブルのリンク]を実行します。[ファイルの種類]を「MicrosoftExcel」に変更します。
リンクを行うExcelのファイルを選択して[リンク]を実行します
ウイザードが始まりますのでそれにしたがってリンクを行います。

Access側でリンクされたテーブルには左側に黒い右向きの矢印が付きます。
そのテーブルを開いて目的のExcelのデータが表示されるか確認してください。
通常のテーブルと同様に使えます。

補足

O_cyanさん、回答感謝いたします。

私もはじめリンクをしようと思っていたのですが、
以下の理由でリンクをあきらめました。
１．参照したいエクセルファイルの保存先が１つでなく、ユーザが指定できる。
２．ユーザにファイルのリンクの作業をさせたくない
ワークブック→ワークシート→セルを指定し値を取得するように
したいと考えています。
他の方法があれば、ご教授ください。