跳到主要内容

查找数据

命令说明​

在工作表指定的区域中查找数据，返回命中查找的单元格

命令原型​

objRet = Excel.Find(objExcelWorkBook,sheet,strRange,findValue,retIndex,retAll)

命令参数​

参数必选类型默认值说明
objExcelWorkBookTrueexpressionobjExcelWorkBook使用 "打开Excel工作簿"命令（Excel.OpenExcel） 或 "绑定Excel工作簿" 命令（Excel.BindBook）返回的工作簿对象
sheetTruestring"Sheet1"如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）
strRangeTruestring"A1:B2"指定的区域，支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写。当只写一个单元格时，读取从单元格开始到此表最后有数据的地方
findValueTruestring""需要查找的数据内容
retIndexTruebooleanFalse是否返回单元格索引，true返回[行号,列号]形式的单元格索引，false返回字母加数字的单元格名称
retAllTruebooleanFalse是否返回全部单元格，true返回数组包含所有查找到数据的单元格，false返回范围内第一个查找到数据的单元格

返回结果​

objRet，将命令运行后的结果赋值给此变量。

运行实例​

/*********************************查找数据***************************************
命令原型：
    objRet = Excel.Find(objExcelWorkBook,"Sheet1","A1:B2","",false,false)
入参：
    objExcelWorkBook--Excel工作簿对象（使用 "打开Excel"命令（Excel.OpenExcel） 打开的工作簿或使用"绑定Excel"命令（Excel.BindBook）绑定的工作簿对象）。
    sheet--如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）
    strRange--指定的区域，支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写。当只写一个单元格时，读取从单元格开始到此表最后有数据的地方
    findValue--需要查找的数据内容
    retIndex--是否返回单元格索引，true返回[行号,列号]形式的单元格索引，false返回字母加数字的单元格名称
    retAll--是否返回全部单元格，true返回数组包含所有查找到数据的单元格，false返回范围内第一个查找到数据的单元格
出参：
    objRet--函数调用的输出保存到的变量。
注意事项：
    该命令不能单独使用，需配合 "打开Excel"命令（Excel.OpenExcel） 或"绑定Excel"命令（Excel.BindBook）一起使用才能正常使用，单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
Dim num = "2"
objExcelWorkBook = Excel.OpenExcel(@res'''测试.xls''',true,"WPS","","")
TracePrint "-----------------变量拼接使用模式------------------"
objRet = Excel.Find(objExcelWorkBook,"Sheet1","A1:A"&num,"UiBot",false,false)
TracePrint "查找数据：Excel对象'Sheet1'工作表A1:B2所在区域中'UiBot'所在单元格位置"
TracePrint "-----------------常规使用模式------------------"
objRet = Excel.Find(objExcelWorkBook,"Sheet1","A1:B2","UiBot",false,false)
TracePrint "查找数据：Excel对象'Sheet1'工作表A1:B2所在区域中'UiBot'所在单元格位置"
TracePrint "-----------------数组使用模式------------------"
objRet = Excel.Find(objExcelWorkBook,"Sheet1",[[1,1],[2,1]],"UiBot",false,false)
TracePrint "查找数据：Excel对象'Sheet1'工作表A1:B2所在区域中'UiBot'所在单元格位置"
Excel.CloseExcel(objExcelWorkBook,True)

可视化样例​