编程要求:
工作薄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

实例图：




实例：创建工作簿.rar