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

实例图：


我做的实例：

刘青梅

先整回去好好

joyark

老大向来是偏心的,我们都习惯了

roych

我也来试试吧：
第一次写VBA，不好的地方多多指教。
Sub SheetsAdd()
'计算非空单元格个数，获取需要增加的工作表
SheetCount = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
For i = 1 To SheetCount - 1
'增加表
Sheets.Add after:=Sheets(i)
Next i
For i = 1 To SheetCount
'提取Sheet1的单元格数值命名表
Sheets(i).Name = Sheets(1).Range("A" & i).Value
Next i
End Sub

huangkai945

呵呵  
   先整回去好好研究下，感谢

wodeyouxi

谢谢您。我最需要的就是这个。

tanhong

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

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

grass761

结果非常满意
我想再问的是 我想反复读取Sheet1中cells(1,1)内数据（数据可以由外面获得也可以由人为自行填写进去），然后将读取的数据依次填写到Sheet2中的单元格中，并且每次读出保存的数据都对应有读出的时间。这个问题您帮忙解答下。谢谢！


老师请帮忙解答下 谢谢。

tanhong

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

tanhong

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