主题：[求助]block对象的type，block建立后，在板块中找不到新建的板块？

set wsheet = workexcel.worksheets("HS300行业")
  num = 301
  do while n < num
   strs = Cstr(wsheet.cells(n,4).value)
   if strs = "综合类" then
    exit do
   end if
    Set wrange = wsheet.Range("d:d").Find(strs)
       Set wrange = wsheet.Range("d:d").FindPrevious(wrange)
    nn = wrange.row
   call block1.createblock("HS300行业",strs)
   for i = n to nn
    str2 = left(cstr(wsheet.cells(i,1).value),6)
    str1 = right(cstr(wsheet.cells(i,1).value),2)
    call block1.addstock(str1,str2)
   next
   call block1.tosave("HS300行业",strs)
   n = nn + 1
  loop

不是用了tosave，那个板块就会在板块的导航中找到么？