使用vbs计算<em>excel</em>文件指定列的行数

在excel中有多种多样的公式可以实现，列举常用几个如zd下：
lookup, 举例：=LOOKUP(E2,$A$2:$B$5), 注意lookup如果在源数据中未查找到对应项，会返回比对应项小的项对应的数值。
vlookup, 举例：=VLOOKUP(E2,$A$2:$B$5,2,)，注意公式最后一个逗号不可省略，省略后结专果与lookup相同，为模糊查找。
index, 举例：=INDEX($B$2:$B$5,MATCH(E2,$A$2:$A$5,0))， 注意match的第三参数，为0则表示精确查找，1或-1表示模糊查询。
offset, 所有用index可以完成的属事情都可以用offset来达到同样的效果，举例：=OFFSET($A$2:$B$5,MATCH(E2,$A$2:$A$5,0)-1,1,1,1)
indirect，举例：=INDIRECT("B"&MATCH(E2,$A$1:$A$5,0))，3/4/5三个公式中都用到了match来定位查找数据在源数据中的位置。

VBS代码如下：

'══zhidao═══代═══码═══开═══始═════
set oexcel=CreateObject("excel.application")
oexcel.workbooks.open "c:\TEST.xlsx"
msgbox oexcel.activesheet.cells(1,1).end(-4121).row
oexcel.activeworkbook.close
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════

说明回，在VBA中可以直接使用“xldown”这个系统变量，然而在vbs中无这个变量，你必须换成其对应的数值（在VBA编辑器帮助文件里面查找对应值）。

XlDirection 枚举 指定移动的方向。
版本信息 已添加版本： Excel 2007
名称 值 说明
xlDown -4121 向下。
xlToLeft -4159 向左答。
xlToRight -4161 向右。
xlUp -4162 向上。
Set oexcel=CreateObject("excel.application")
Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")
Set osheet=obook.Sheets("sheet1")
'显示百第一度个工问作表答A1单元格专数属据

msgbox osheet.cells(1,1)
Set obook=Nothing
Set osheet=Nothing
oexcel.Quit

修改如下：
Function getRow(Colum)
Dim FilePath, ExcelRow
Dim ExcelBook, myExcelBook, WshShell, excelSheet
FilePath = App.Path & "\a.xls"
Set ExcelBook = CreateObject("Excel.Application")
Set WshShell = CreateObject("Wscript.Shell")
ExcelBook.Application.Visible = False
Set myExcelBook = ExcelBook.WorkBooks.Open(FilePath)
ExcelRow = ExcelBook.Worksheets("a").Range(Chr(64 + Colum) & "65535").end(-4162).Row
ExcelBook.Application.Quit
MsgBox ExcelRow
End Function