アクセスからエクセルのa列に入力されているセルの個数を数えたい

アクセスvbaで
エクセルのａ列の個数を数えることは可能でしょうか？

MsgBox GetObject(, "Excel.Application").Workbooks("Access用.xls").WorkSheets("集計").WorksheetFunction.Count(Columns("a"))

だとコンパイルエラ-となってしまいます。

なので、
エクセル側でa1に集計セルを作って
MsgBox GetObject(, "Excel.Application").Workbooks("Access用.xls").WorkSheets("集計").Range("a1").Value

としていますが
できればアクセスからダイレクトに個数を数えたいです。
できますでしょうか？
よろしくお願いします。

No.1 回答者： bin-chan 回答日時： 2008/06/26 23:11

ODBC設定のEXCELドライバーを介して、テーブルとしてリンクさせる。

この回答へのお礼

ODBC設定！？汗
難しそうなので勉強してみます！ご回答ありがとうございます。

お礼日時：2008/06/28 21:07

No.2 回答者： keirika 回答日時： 2008/06/27 00:23

テーブルのリンクではダメでしょうか。

リンクを張れば通常のテーブルと同じ扱いで件数がカウントできます。

ファイル→外部データの取り込み→テーブルのリンク

この回答へのお礼

アクセスのフィールド数とエクセルのフィールド数とが一致しない条件なんです。　汗
ご回答ありがとうございます。

お礼日時：2008/06/28 21:08

No.3 ベストアンサー 回答者： hotosys 回答日時： 2008/06/27 07:41

MsgBox GetObject(, "Excel.Application").WorksheetFunction.Count(G

etObject(, "Excel.Application").Workbooks("Access用.xls").WorkSheets("集計").Columns("a"))

この回答へのお礼

できました！
ご回答ありがとうございます。

お礼日時：2008/06/28 21:08