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,那个板块就会在板块的导航中找到么?