第一，excel提取工作表名稱：宏表函數(shù)
excel提取工作表名稱的方法，在以前的文章：Excel中工作表間的關(guān)聯(lián)鏈接方法及實(shí)例(http://www.ittribalwo.com/show.asp?id=834)曾經(jīng)介紹過(guò)，使用宏表函數(shù)來(lái)提取工作表名稱，并自動(dòng)添加超鏈接。
第二，vba自定義函數(shù)獲取工作表名稱
下面再介紹一個(gè)vba獲取工作表名稱的自定義函數(shù)。使用方法如下，打開(kāi)需要excel工作表，按下ALT+F11，打開(kāi)VBE編輯器，單擊插入——模塊，復(fù)制下面的代碼，然后關(guān)閉VBE。回到excel工作表，在空白單元格輸入公式：=gname(ROW(A1))，下拉復(fù)制，知道出現(xiàn)0錯(cuò)誤為止，即可以實(shí)現(xiàn)用vba獲取工作表名稱。
Function gname(x As Integer)
If x = 0 Then
gname = ActiveSheet.Name
ElseIf x > 0 And x <= Sheets.Count Then
gname = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范圍"
End If
Application.Volatile
End Function
第三，vba獲取工作表名稱
同樣，在excel中，按下ALT+F11，打開(kāi)VBE編輯器，插入——模塊，復(fù)制下面的代碼，然后按F5鍵或者單擊工具欄綠色的“運(yùn)行”按鈕即可實(shí)現(xiàn)用vba獲取工作表名稱。獲取的工作表名稱將存放在當(dāng)前工作表的A列。
Sub vba獲取工作表名稱()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
核心關(guān)注：拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處：拓步ERP資訊網(wǎng)http://www.oesoe.com/
本文標(biāo)題：excel vba獲(提)取工作表名稱的兩種方法
本文網(wǎng)址：http://www.oesoe.com/html/support/1113925662.html
相關(guān)文章
