アクセスからエクセルを開いてデータを取得するには？

質問

こんにちは。

MS AccessからExcelを開いて、Excel上のデータを取得したいのですが、下記のようにしたらエラーとなりました。CellsがNGみたいなのですが、AccessではCellsは使用出来ないのでしょうか？

宜しくお願いします。

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True

On Error Resume Next
oApp.UserControl = True

oApp.Workbooks.Open Filename:="C:\TEST\Book1.xls"

GYO = 1
Do

KI = Cells(GYO, 1).Value

MsgBox KI

GYO = GYO + 1

Loop Until Cells(GYO, 1) = ""

回答No.2

11zep · ベストアンサー

"Cells"だけでは、エラーになると思います。
Applicationのコレクションなので"oApp.Cells(GYA,1).Value"としてみて下さい。

Excelだと省略しても動いてくれたと思います。

お礼

11zepさん、こんにちは。

ありがとうございます。

oApp.を追加したらうまく動作しました。
Excelの癖でいきなり　Cells・・・・としてしまいました。

回答No.4

imogasi

エクセルーApplication　Set oApp
ブック　Set bk=oApp..Workbooks.Open ・・・
シート　Set sh=bk.Worksheet（”シート名")
までを省略しないで、定義し
ｓｈ.Cells（・・）とする癖をつけること。オブジェクト階層を明示するのだ。
多分こんななところが原因ではないか。

お礼

mogasiさん、こんにちは。

ありがとうございます。

ついつい省略してしまう癖を直します！

回答No.3

o_chi_chi

できますよ。

oApp.Cells(GYO, 1).Value

もしくは

Dim oWorkbook As Object

Set oWorkbook = oApp.Workbooks.Open("C:\TEST\Book1.xls")

KI = oWorkbook.Cells(GYO, 1).Value

あとWithを使えばもう少し見栄え良くなるし処理速度も向上します。

お礼

o_chi_chiさん、こんにちは。

ありがとうございます。

setも有効なんですね。勉強になりました。

回答No.1

Saturn5

＞AccessからExcelを開いて
ここのところがよくわかりません。
ＡｃｃｅｓｓとＥｘｃｅｌは別のソフトです。

一般には、レコードセットを開いて（定義して）そこから
データを取得します。
http://www.geocities.jp/cbc_vbnet/ADO/recordset.html

お礼

Saturn5さん、こんにちは。

Excelに記載してあるデータをAccessのtableから探し出し、処理をする　というものを作りたかったのです。説明不足ですいません。