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

实例图：


我做的实例：

tanhong

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

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

tanhong

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

tanhong

NewBook.SaveAs Filename:="D:\" & y & ".xls"

tanhong

你试着按上面的修改试试看

tanhong

原帖由 grass761 于 2008-4-1 16:25 发表
结果非常满意
我想再问的是 我想反复读取Sheet1中cells(1,1)内数据（数据可以由外面获得也可以由人为自行填写进去），然后将读取的数据依次填写到Sheet2中的单元格中，并且每次读出保存的数据都对应有读出的时间。这 ...

建议把问题发到论坛综合区