经典问题EXCEL如何一次性插入900个工作表，汇总式提问

zjdh · 发表于 2010-9-8 08:33

Sub Addsh()
For I = 1 To 900
      Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
      sht.Name = I
      Cells(I + 1, 1) = I
      Hyperlinks.Add Anchor:=Cells(I + 1, 2), Address:="", SubAddress:=I & "!A1", TextToDisplay:="表" & I
Next
End Sub

[ 本帖最后由 zjdh 于 2010-9-8 08:45 编辑 ]

LangQueS · 发表于 2010-9-8 09:48

原帖由 亡者天下 于 2010-9-8 05:50 发表
L版主是怎么弄出来的？

我这边打开只有16个啊

点击链接显示引用无效！

附件发来看看。

sunsoncheng · 发表于 2010-9-8 10:43

我是为了看900个表如何用才来的
至于如何生成,一点都不关心

因为我根本不会考虑这种方式!
我肯定会用数据库,而也会象楼主讲的做点小程序

请楼主传个示例文件来看看

xiaohui863 · 发表于 2010-9-8 11:21

太复杂了，不是太懂，过来学习

sos00198 · 发表于 2010-9-8 11:40

楼主太NB了

好牛简历 · 发表于 2010-9-8 12:00

呵呵，是有些夸张，用途有一部分公开的
有的是公司内部应用，改些日子，若是有聚会，可以向大伙展示一下哇

好牛简历 · 发表于 2010-9-8 12:07

你需要，填充，1-900
这样链接，生成的时候，就是一一对应的

要不，必然如楼主所提问题，环境，要注意一下呢

好牛简历 · 发表于 2010-9-8 12:09

公司内部所用
工资，人员信息

另，若是有私下交流，可以带上电脑给展示一下
暂时不能外传呢，谢谢楼主关注，或者可以QQ交流
995519752

chen7806 · 发表于 2010-9-8 13:18

900表确实牛，可能是这里的第一牛！！！

everee · 发表于 2010-9-8 13:20

不知道建行和工行是不是也是一个人一个工作表，因为银行卡信息也挺机密的。

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

[求助] 经典问题EXCEL如何一次性插入900个工作表，汇总式提问

回复 19楼亡者天下的帖子

回复 20楼亡者天下的帖子

回复 23楼 sunsoncheng 的帖子

[求助] 经典问题EXCEL如何一次性插入900个工作表，汇总式提问

回复 19楼 亡者天下 的帖子

回复 20楼 亡者天下 的帖子

回复 23楼 sunsoncheng 的帖子

回复 19楼亡者天下的帖子

回复 20楼亡者天下的帖子