我需要计算列中活动单元格的数量AExcel 的。
我可以在 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
我需要列中包含数据的单元格计数A存储在变量中。
当我执行代码时，我收到以下错误消息：
Microsoft VBScript 编译错误：预期标识符
Microsoft VBScript 编译错误：预期为“)”
一些错误：
-
WorksheetFunction是一种方法Excel.Application对象，不是Worksheet.
-
Range不能单独使用，它是一个方法Worksheet object.
这是可以工作的代码：
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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
