代码出错，求大侠！

radarzhong

Sub 生成工作表目录()
    Dim sht As Worksheet, k&
    [b:b] = ""
    [b3] = "目录"
    k = 3
    For Each sht In Worksheets
        k = k - 1
        Cells(k, 2) = sht.Name
    Next
End Sub
如图

于箱长

ykcbf1100

k = k - 1是什么鬼？常理来看，不是应该k = k +1
如果出错。应该是表的数量大于K值了。

wengjl

sht  前面有定义
但后面还少个设置   set  sht=??????????

radarzhong

ykcbf1100 发表于 2022-11-18 11:21
k = k - 1是什么鬼？常理来看，不是应该k = k +1
如果出错。应该是表的数量大于K值了。

谢谢，弄错了，感谢指正