VBA创建新工作簿并在内按要求创建新表

tanhong

编程要求:
工作薄A.xls里sheet1 里a1=1001  ,a2=1002,a3=1003,a4=1004.......
通过VBA实现新建工作薄B.xls里的sheet1命名为1001，sheet2命名为1002，sheet3命名为1003，直至a(i)=""时结束

欢迎大家攻擂哦，看看有没有更好的办法

主要思路:
1、新建一个工作簿
2、在新建工作簿中，建立新表。新建表个数：先得到你A1到AN个单元格个数，来决定新建表的个数，因为考虑到新建工作簿中一般都会有三个表，那就是N减3，也就是说要新建N-3个表
3、循环A1-AN区域取值并循环修改新建表的表名
4、在当前路径保存工作簿。就OK

实例图：


我做的实例：

pureshadow

Sub Macro1()

Dim x As Long
Dim i As Long

x = Sheets("sheet1").Range("a65536").End(xlUp).Row
For i = 2 To x

Sheets.Add after:=Sheets(i - 1)
ActiveSheet.Name = Sheets("sheet1").Range("a" & i)
Sheets("sheet1").Select

Next

End Sub

[ 本帖最后由 pureshadow 于 2008-3-27 21:55 编辑 ]

pureshadow

啊哈.......
不好意思,
妖的EXCEL是设置成打开只有一个SHEET的[:30]

andymark

呵呵,E版终于开擂啦
支持一下

tanhong

原帖由 pureshadow 于 2008-3-27 21:54 发表
啊哈.......
不好意思,
妖的EXCEL是设置成打开只有一个SHEET的[:30]

妖版主是在当前工作簿中创建表，题目是要创建新工作簿哦，在新工作簿中创建表哦

pureshadow

同一工作表内的代码还不熟.......
跨工作表的更是生硬.......
现在要我跨工作簿......
[:30]

pureshadow

原帖由 andymark 于 2008-3-27 21:59 发表
呵呵,E版终于开擂啦
支持一下

什么呀,前一个擂,已经开了几层楼了.......
老大也不关注一下E版[:30]

tanhong

同意小妖的看法，老大不怎么关心E版哦。哈哈[:41]

tmtony

没有啊, 看到你们打得热火朝天,我插不上啊, 一会就到了第9楼啦.
这两天基本上都在客户, 只有晚上才能看看

pureshadow

老大向来是偏心的,我们都习惯了....[:41]