如何在 VBScript 中使用 Excel WorksheetFunction.CountA？

Question

我需要计算 Excel 的 A 列中活动单元格的数量。我可以使用 Excel VBA 中的 worksheetfunction.countA 轻松实现此目的，但无法在 VBscript 中获得相同的结果。

这是我的代码：

Dim objXl , objWorkbook, objSheet ,numofactivecells

Set objXl = createobject("Excel.Application")

set objWorkbook= objXl.Workbooks.open("C:\Users\Username\Desktop\filename.xlsm")
'change filename

set objSheet = objWorkbook.Worksheets(1)

objXl.visible = true

objsheet.cells(1,1).select

numofactivecells = objsheet.WorksheetFunction.CountA(Range("A:A"))

msgbox numofactivecells

我需要使用 VBScript 对 A 列中包含数据的单元格进行计数，就像 VBA 中的 returns 函数一样。

Answer 1

试试这个：

Dim objXl
Dim objWorkbook
Dim objSheet
Dim iActiveCells

Set objXl = CreateObject("Excel.Application")
Set objWorkbook = objXl.Workbooks.open("C:\Temp\test2.xlsx") 'change filename
Set objSheet = objWorkbook.Worksheets(1)

objXl.Visible = True

With objSheet
    .Cells(1, 1).Select
    iActiveCells = objXl.WorksheetFunction.CountA(.Range("A:A"))
End With

MsgBox iActiveCells

我在你原来的问题中解释了你的代码的问题。

如何在 VBScript 中使用 Excel WorksheetFunction.CountA？

How to use Excel WorksheetFunction.CountA in VBScript?

vbscript

excel