アクセスからエクセルの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.3

hotosys · ベストアンサー

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

お礼

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

回答No.2

keirika

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

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

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

お礼

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

回答No.1

bin-chan

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

お礼

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