主题：[求助]引用excel单元格属性方法莫名其妙的出错

dim block1
 set block1 = createobject("stock.block")
 dim workexcel
 set workexcel = getobject("D:\数据资料\新建文件夹 (2)\新建文件夹\核心数据\block.xlsx","excel.application")

 

中间一些参数废话省略

 

call block1.createtype("HS300行业")
 with workexcel.worksheets("HS300行业")
  num = .cells(.rows.count,1).end(xlup).row
  do while n < num
   if strs = "综合类" then
    exit do
   end if
   strs = Cstr(.cells(4,n).value)
   Set wrange = .range.Find(What:=strs, After:=.Cells(num, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)

   '这句竟然说编译器错误 1006 缺少')'，这很莫名其妙吧
   nn = wrange.row
   call block1.createblock("HS300行业",strs)
   for i = n to nn
    str2 = left(cstr(.cells(i,1).value),6)
    str1 = right(cstr(.cells(i,1).value),2)
    call block1.addstock(str1,str2)
   next
   call block1.tosave("HS300行业",strs)
   n = nn + 1
  loop
 end with

当然我这里有些行列写错的问题，但少了一个括号的错误提示？，这蛮莫名其妙的

那请问应该怎么写？这个地方用什么lookup的都不好用呀

这个不算稀奇吧，excel里面的find就是这样用的吧

是vba代码，但我引用excel对象时，不能使用excel对象里面的方法么？

 

那么如果我要实现excel里面的查找，我应该怎么样？（用excel里面的find，不是worksheetfunction的lookup之类的）

现在发现是:=在vbs不能用，那应该怎么处理？

现在发现是：=在vbs不能用，请问应该如何处理

没有找到vbs有关 ：= 限制的网页。。。。。

 

我主要是需要用查找方向逆向方法的定义

最后用多个find and findprevious解决了，避开了：=对起始格和其他方向的定义，太蛋疼的