0

我想在 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”:

下标超出范围

4

1 回答 1

1

您可以在 VBA 中使用工作表函数;看这里。只需添加对 Excel 对象模型的引用。

于 2013-04-10T22:44:49.747 回答