VBA創(chuàng)建新工作簿并在內(nèi)按要求創(chuàng)建新表

tanhong

編程要求:
工作薄A.xls里sheet1 里a1=1001  ,a2=1002,a3=1003,a4=1004.......
通過VBA實(shí)現(xiàn)新建工作薄B.xls里的sheet1命名為1001，sheet2命名為1002，sheet3命名為1003，直至a(i)=""時(shí)結(jié)束

歡迎大家攻擂哦，看看有沒有更好的辦法

主要思路:
1、新建一個(gè)工作簿
2、在新建工作簿中，建立新表。新建表個(gè)數(shù)：先得到你A1到AN個(gè)單元格個(gè)數(shù)，來決定新建表的個(gè)數(shù)，因?yàn)榭紤]到新建工作簿中一般都會(huì)有三個(gè)表，那就是N減3，也就是說要新建N-3個(gè)表
3、循環(huán)A1-AN區(qū)域取值并循環(huán)修改新建表的表名
4、在當(dāng)前路徑保存工作簿。就OK

實(shí)例圖：


我做的實(shí)例：

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是設(shè)置成打開只有一個(gè)SHEET的[:30]

andymark

呵呵,E版終于開擂啦
支持一下

tanhong

原帖由 pureshadow 于 2008-3-27 21:54 發(fā)表
啊哈.......
不好意思,
妖的EXCEL是設(shè)置成打開只有一個(gè)SHEET的[:30]

妖版主是在當(dāng)前工作簿中創(chuàng)建表，題目是要?jiǎng)?chuàng)建新工作簿哦，在新工作簿中創(chuàng)建表哦

pureshadow

同一工作表內(nèi)的代碼還不熟.......
跨工作表的更是生硬.......
現(xiàn)在要我跨工作簿......
[:30]

pureshadow

原帖由 andymark 于 2008-3-27 21:59 發(fā)表
呵呵,E版終于開擂啦
支持一下

什么呀,前一個(gè)擂,已經(jīng)開了幾層樓了.......
老大也不關(guān)注一下E版[:30]

tanhong

同意小妖的看法，老大不怎么關(guān)心E版哦。哈哈[:41]

tmtony

沒有啊, 看到你們打得熱火朝天,我插不上啊, 一會(huì)就到了第9樓啦.
這兩天基本上都在客戶, 只有晚上才能看看

pureshadow

老大向來是偏心的,我們都習(xí)慣了....[:41]