第一，excel提取工作表名稱：宏表函數
excel提取工作表名稱的方法，在以前的文章：Excel中工作表間的關聯鏈接方法及實例(http://www.ittribalwo.com/show.asp?id=834)曾經介紹過，使用宏表函數來提取工作表名稱，并自動添加超鏈接。
第二，vba自定義函數獲取工作表名稱
下面再介紹一個vba獲取工作表名稱的自定義函數。使用方法如下，打開需要excel工作表，按下ALT+F11，打開VBE編輯器，單擊插入——模塊，復制下面的代碼，然后關閉VBE。回到excel工作表，在空白單元格輸入公式：=gname(ROW(A1))，下拉復制，知道出現0錯誤為止，即可以實現用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，打開VBE編輯器，插入——模塊，復制下面的代碼，然后按F5鍵或者單擊工具欄綠色的“運行”按鈕即可實現用vba獲取工作表名稱。獲取的工作表名稱將存放在當前工作表的A列。
Sub vba獲取工作表名稱()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://m.hanmeixuan.com/
相關文章
