动态插入新工作表CODENAME是空的？

dzbhboy · 发表于 2013-7-5 10:13

本帖最后由 dzbhboy 于 2013-7-5 19:56 编辑

现在需要动态插入一个工作表，并且要往工作表里insertlines一些代码，但一直不成功，检测到当提取新工作表的codename时，codename是空的，为什么呢？要怎么解决？麻烦各位大大了

附上一部分代码：
Sheets.Add(after:=Sheet1).Name = biaoname
ThisWorkbook.Save
Worksheets(biaoname).Activate
MsgBox ActiveSheet.Name '显示biaoname内容，正确
sh1 = Worksheets("表头备份").CodeName '这是同一工作薄内的另一个工作表，但它的codename显示正确
shcodename = Worksheets(biaoname).CodeName
MsgBox sh1
MsgBox shcodename '这里显示是空的，什么都没有

hwc2ycy · 发表于 2013-7-5 10:20

biaoname，这是变量，你这有赋值么，如果是工作表的名称，得"biaoname"

dzbhboy · 发表于 2013-7-5 10:21

hwc2ycy 发表于 2013-7-5 10:20
biaoname，这是变量，你这有赋值么，如果是工作表的名称，得"biaoname"

这是一个变量，但肯定有赋值的

dzbhboy · 发表于 2013-7-5 10:27

本帖最后由 dzbhboy 于 2013-7-5 17:17 编辑

hwc2ycy 发表于 2013-7-5 10:20
biaoname，这是变量，你这有赋值么，如果是工作表的名称，得"biaoname"

十分郁闷，不知道为什么会这样，还是不行

E-H-P · 发表于 2013-7-5 10:28

biaoname=""

dzbhboy · 发表于 2013-7-5 17:18

还是不行啊，想死的心都有了，biaoname不是空的

dzbhboy · 发表于 2013-7-5 17:56

要打开一次VB编辑器才能提取到codename的？！？！？

dzbhboy · 发表于 2013-7-5 18:42

本帖最后由 dzbhboy 于 2013-7-5 18:53 编辑

手动新建工作表codename也是显示不了的，用代码建工作表就不能显示，要打开一下VB编辑器之后才能显示codename

dzbhboy · 发表于 2013-7-5 19:57

这次真的算是搞定了

		自动登录	找回密码
密码			注册

动态插入新工作表CODENAME是空的？

相关帖子