VBS，怎样根据内容来查找excel中对应的位置？

deadhunter

例如：表格中有值为123，我要找到表格中所有值为123的位置？

feiyunkai

Public function getrowandcol(filepath,sheetname,data)
'函数作用：获取指定字符串在EXCEL中的位置
'参数说明
'filepath：EXCEL所在路径
'sheetname：SHEET名称
'data：需要查找的字符串
'用法示例：getrowandcol"D:\qqq.xlsx","sheet1","123"
Set  excel=CreateObject("Excel.Application")
set openexcel=excel.Workbooks.Open(filepath)
openexcel.WorkSheets(sheetname).Activate
rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count     '获sheet总行数
Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count '获sheet总列数
                For i=1 to rowcount
                              For j=1 to Columnscount
                                           If cstr(openexcel.WorkSheets(sheetname).Cells(i,j ))=data  then '将EXCEL中数据转化为字符串类型与传入的字符串进行比较
                                                          print data&" 所在行为："&i&" 所在列为： "&j
                                           end if
                              Next
                Next
openexcel.Close                                   
excel.Quit                                                   
set openexcel=nothing      
Set  excel=nothing
End Function

[ 本帖最后由 feiyunkai 于 2010-7-30 16:39 编辑 ]

deadhunter

谢谢