1樓：魚木混豬喲
1.如果一定要獲取新新增的工作表的名稱，可以強制將新工作表新增到最前面
然後顯示第乙個工作表（sheets(1)）的名稱，即為新新增的工作表的名稱，**如下：
sub main()
worksheets.add before:=sheets(1)msgbox worksheets(1).nameend sub
2.與其獲得新新增的工作表的名稱，不如在新增新工作表時，直接命名**如下：
sub min()
worksheets.add
activesheet.name = "new sheet"
end sub
2樓：匿名使用者
用了這個函式會返回乙個sheet的控制代碼，操作這個控制代碼就是在操作這個工作表
dim s as worksheet
s=worksheets.add(***)
3樓：匿名使用者
新增後 這個工作薄是啟用狀態的
可以直接
sub aa()
dim a$
a = activeworkbook.nameend sub
4樓：匿名使用者
msgbox sheets.add(after:=sheets(sheets.count)).name
vba excel如何自動獲取當前工作表的名字？
5樓：蘇羽城傾
1.一步搞定之**
sub 提取所有工作表名稱()
for x=1 to sheets.count
cells(x,1)=sheets(x).name
next x
end sub
如圖，按照順序來就可以啦。
方法/步驟
1.分步閱讀
首先我們開啟乙個工作樣表作為例子。
2.工作表標籤名即是工作表的名稱，在指定啟用當前工作表時，可以使用worksheets（「工作表名稱」）的方法來指定。我們這裡可以使用vba來獲取這個名稱。
3.sub delete_emptysheets()
dim sh as string
sh = worksheets(1).name
msgbox sh
end sub
4.執行這段**後，就可以獲得5月工資這個工作表的名稱。並將這個名稱賦予了sh這個變數。我們就可以使用這個變數來指定工作表。
5.這裡我們需要注意的是，worksheets（）使用工作表名稱來指定工作表的時候字串必須使用「」括住，而使用變數時則不需要，如果用「」括住變數，那麼變數會被識別為字串而出錯。
6.修改名稱我們可以直接使用worksheets（）.name= 的方式進行改名。修改的名稱如果使用變數賦值，則不需要「」括住，如果是直接輸入，則同樣需要以字串的方式。
怎樣用vba在excel中新增乙個工作表並且對其命名
6樓：小丁創業
用vba在excel中新增乙個工作表並且對其命名的實現方法和操作步驟如下：
1、首先，在excel中按快捷鍵「alt + f11」，如下圖所示。
2、其次，在vba編輯器中依次單擊「插入」-->「模組」，如下圖所示。
3、然後，在「模組」中輸入如下**：
option explicit
sub addwork()
sheets.add after:=sheets(sheets.count)
end sub
4、接著，在vba編輯器的左側輸入模組的名稱，如下圖所示。
5、隨後，關閉vba編輯器，返回到excel工作表，然後依次單擊「檢視」-->「巨集」-->「檢視巨集」，如下圖所示。
6、最後，在彈出的視窗中單擊巨集名稱，然後單擊「執行」按鈕即可，如下圖所示。這樣就實現了用vba在excel中新增乙個工作表並且對其命名的功能了。
7樓：夕際
1、首先，在excel中按快捷鍵alt+f11。
2、然後，在進入的vba編輯器中依次點選插入——模組。
3、接著，在模組中輸入下面的**：
option explicit
sub addwork()
sheets.add after:=sheets(sheets.count)
end sub
4、之後，在vba編輯器左側輸入模組的名稱。
5、如圖所示，關閉掉vba編輯器，返回到excel工作表中，再依次點選檢視——巨集——檢視巨集。
6、最後，在彈出的視窗中點選巨集名，再點選執行按鈕即可。
8樓：匿名使用者
sub addsh()
dim sh as worksheet
set sh = sheets.add
with sh
.name = "mysh"
end with
end sub
9樓：匿名使用者
myname = "ssdtddf"
sheets.add after:=sheets(sheets.count)
myindex = sheets.countsheets(myindex).name = myname
excel 怎麼用vba自動新增工作表，並修改工作表的名稱
10樓：莫霞板申
下面的語句，可以在當前工作表的最右邊新增乙個表，並命名為「小蘋果」：
sheets.add(after:=sheets(sheets.count)).name="小蘋果"
如何獲取excel所有sheet名稱
11樓：一條酸菜魚
1、電腦開啟excel**。
2、按alt+f11進入vba。
3、進入vba後，點選插入模組。
4、點選插入模組後，輸入**
sub m
for each sh in sheetsk=k+1
cells(k,1)=sh.name
next
end sub
然後點選執行。
5、點選執行後，所有sheet名稱就都提取出來了。
12樓：來自開心島有趣的白玉棠
1、首先檢視當前excel檔案的所有sheet名稱。
2、之後點選乙個單元格。
3、然後點選上方的公式選單，然後找到定義名稱，並點選選擇。
4、在開啟的介面中，在名稱中輸入所有工資表，範圍中功輸入工作簿，然後在引用位置中輸入**「=get.wortbook(1)」。
5、之後即可成功獲取excel中的所有sheet名稱。
13樓：匿名使用者
excel2007獲取所有sheet名稱的方法如下：
1、使用get方法，獲得工作表名，定義乙個含有所有工作表名稱的名稱。
公式》定義的名稱》定義名稱》新建》名稱裡面輸入名稱，比如表名，引用位置裡面輸入：=replace(get.workbook(1),1,find("]",get.
workbook(1)),)&t(now())，確定退出
2、在任何乙個**的a1輸入：=iferror(index(表名,row()),"")，向下複製，就可以得到所有工作表的名稱。
14樓：魚木混豬喲
可以利用vba
sub m
for each sh in sheetsk=k+1
cells(k,1)=sh.name
next
end sub
這樣，所有工作表名就放到a列裡了
15樓：excel每日精選
如何一鍵獲取所有工作表的名稱，這辦法太快了，真只要一秒鐘
如何在excel 用vba插入多個工作表並命名。要用到巨集。給分給分~
16樓：小小小小顰
具體操作步驟如下：
1、第一步，開啟excel**，在主介面按alt+f11下快捷鍵，如圖所示。
2、第二步，進入到vba編輯器，點選上面選單欄中的插入，再選擇【模組】，如圖所示。
3、第三步，在彈出的模組視窗中，輸入下面的**：
option explicit
sub addwork()
sheets.add after:=sheets(sheets.count)
end sub，
如圖所示。
4、第四步，輸入好後，在編輯器的左側，輸入模組的名稱。如圖所示。
5、第五步，關閉編輯器視窗，返回到**中，點選上方選單欄中的檢視，再點選下方選單欄的巨集，選擇檢視巨集，如圖所示。
6、最後一步，在彈出的巨集視窗中，單擊巨集名，再單擊【執行】就可以了，如圖所示。
17樓：匿名使用者
增加sheet的命令符為sheets.add完整的表示式為sheets.add(before, after, count, type)
before或after可分別設定增加的sheet在某個工作表前或表後，一般不用同時指定。如果同時指定則不要造成矛盾。
count,指增加的工作表個數。
type指增加的工作表類別。
如果批量增加，則需要指定定義sheet變數。
如下兩種**均可批量增加100個並重命名sheet。
sub sheetadd()
dim myrange as worksheetset myrange = sheets.add(count:=100)
for i = 1 to 100
worksheets(i).name = inext
end sub
sub sheetadd_()
for i = 1 to 100
sheets.add
activesheet.name = "a" & inext
end sub
18樓：匿名使用者
sub shtadd()
dim i%
for i = 1 to 49
if i > worksheets.count then worksheets.add after:=worksheets(sheets.count)
worksheets(i).name = "第" & worksheetfunction.text(i, "[dbnum1]") & "周"
next i
end sub
excel中如何用vba將工作表sheet1重新命名，因為要重
20時13分14秒 sub rename mydate format date,409 dd mmm yy 得到美式的日期格式 mymonth split mydate,split此日期格式，找到當前的月份的英語簡寫 myname ucase mymonth 1 ucase mymonth 0 ye...
Excel中VBA如何操作兩個表的資料
楊華山 public sub 複製資料 dim sh1,sh2 as range set sh1 sheets biao1 range a1 a10000 set sh2 sheets biao2 range d1 d10000 sheets biao3 range a1 sheets biao1 ...
如何從mysql資料庫中獲取表的表結構
大耳朵狗圖圖 show create table 表名 桂奧雅 列出表 列 結構 mysql describe tablename mysql describe tablename columnname mysql desc tablename mysql show columns from tab...