[分享]山深处的美丽——Excel工作表探密

welky

受教了，3Q

name004

做个记号，来得太晚

AZA

Sub ChageWksObjectName()
  Dim ws As Worksheet
  Dim sPrevCodeName As String
  Dim sNewCodeName As String
  '设置新对象的名称
  sNewCodeName = "ws_main"
  '增加新工作表
  Set ws = Worksheets.Add
  '获取新增工作表的对象名称
  sPrevCodeName = ws.CodeName
  '变化新增工作表的对象名称
  ThisWorkbook.VBProject.VBComponents(sPrevCodeName). _
                        Properties("_CodeName") = sNewCodeName
End Sub

ThisWorkbook.VBProject.VBComponents(sPrevCodeName). _
                        Properties("_CodeName") = sNewCodeName
运行到上句时，提示“运行时错误'1004',不信任到Visual Basic Project的程序连接。
为何？

夜郎

这个真是好资料啊

MOWENZHOU

开始有点入门的感觉了
后续肯定要长期不断的修正理解才行
好好学习,天天向上

dongfei_1972

研究学习，谢谢共享

gyzzf

好帖，谢谢楼主

rr1005

学习中

huihua81

支持，学习中

l296233

查看一下这个
http://club.excelhome.net/viewth ... xcel%2B%B6%D4%CF%F3