Access で VBA を実行して、Excel ドキュメント内の指定されたセル範囲内のデータを含む行数を取得したいと考えています。
ExcelCOUNTAではこれがうまくいきますが、Access VBA から同じ結果を得るにはどうすればよいでしょうか? 1 列のデータを確認するだけで済みます。
参照する場所の例:
フルパス:
- C:\Users\Matt\Desktop\ExcelFile.xls
カウントする必要がある行を含む Excel のシート:
- エクセルシート
開始セル参照
つまり、一番左のセルです。COUNTAしたがって、Excel で使用している場合は、次のような範囲を調べCOUNTA(A14:A5000)ます。
- A14
編集：私が試したコードですが、エラーが発生しています：
Option Compare Database
Sub ImportDataFromRange()
Dim xlFilePath As String
Dim rowVariable As String
xlFilePath = "C:\Users\Matt\Desktop\MattExcelFile.xls"
rowVariable = Excel.Application.WorksheetFunction.CountA(Workbooks(xlFilePath).Sheets("ExcelSheet").Range("A14:A5000"))
Debug.Print rowVariable
End Sub
Private Sub Command0_Click()
ImportDataFromRange
End Sub
このコードを実行するとエラー メッセージが表示され、次のrowVariable = ...行が強調表示されます。
実行時エラー '9':
下付き文字が範囲外