我想在 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”:
下标超出范围