求助关于如何用VBA生成新工作薄里工作表的问题

xjtben

问题如下：工作薄A.xls里sheet1 里a1=1001  ,a2=1002,a3=1003,a4=1004.......
我需要通过VBA实验新建工作薄B.xls里的sheet1命名为1001，sheet2命名为1002，sheet3命名为1003，直至a(i)=""时结束
请问语句如何编写？

tanhong

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book.xls"
通过另存为,在当前路径建新book工作簿

tanhong

要实现你提到的这些功能并不是很难.
思路:
1、新建一个工作簿
2、在新建工作簿中，建立新表。新建表个数：先得到你A1到AN个单元格个数，来决定新建表的个数，因为考虑到新建工作簿中一般都会有三个表，那就是N减3，也就是说要新建N-3个表
3、循环A1-AN区域取值并循环修改新建表的表名
4、在当前路径保存工作簿。就OK
你自己选按这个思路做做看

xjtben

thanks  已经解决

ZHUXQSTYLE

学习....