VBscript读取excel – 1.如何获取特定列的行数，2 – 获取特定行的列数

VBscript读取excel：

Path="C:\temp\sample.xlsx" Set objexl = Createobject("Excel.application") objexl.visible = False set objwkb = objexl.workbooks.open(path) set objsht = objwkb.sheets(1) msgbox objsht.usedrange.rows.count msgbox objsht.usedrange.columns.count 

在上面的代码中，我使用usedrange.rows.count （它将显示整个工作表中最后使用的行）和usedrange.columns.count （它将显示整个工作表中最后一个使用的列）。

但需要find代码

1. 特定列的行数。

2. 特定行的列数。

在回答之前请考虑：

1. 我不需要通过连接到数据库的Excel来获得计数的代码。

2. 我不需要使用循环来获得计数的代码。

3. 我使用外部的VBScript，所以没有需要的工作sheets(1).cells(row,col).end(xlup).row

请让我知道，如果有任何其他方式来find这个。

Answer 1

解：

 Const xltoleft = -4159 Const xlup = -4162 Lst_row = Sheets(1).cells(row, col).End(xlup).row Lst_col = Sheets(1).Cells(row, col).End(xlToLeft).Column 

如果你正在使用外部的VBScript这个常量值xltoleft ， xlup需要声明。

可以通过Msgbox xlup或Msgbox xltoleft在Excel VBA窗口中findConst值。