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

你这是从其他地方抄来的VBA代码把？

金字塔用的是VBS引擎，与OFFICE 的 VBA并非100%兼容，还请你捋清思路，把这地方重新按照你的想法重新写出来为好

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

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