本經驗介紹使用Excel內建的VBA工具來獲取工作表名稱的兩種方法,具體步驟如下所述:
工具/原料
Excel 2003
方法1:vba自定義函式獲取工作表名稱
開啟Excel工作簿文件,按ALT+F11組合鍵進入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工作表介面,在A1單元格鍵入公式“=gname(ROW(A1))”,向下拖動複製,直到出現0錯誤為止。
方法2:vba獲取工作表名稱
開啟Excel工作簿文件,按下ALT+F11組合鍵,開啟VBA編輯器視窗
單擊選單欄上的“插入”——“模組”
將下面的程式碼拷貝到模組文字框中
Sub vba獲取工作表名稱()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
按F5鍵或單擊工具欄的“執行”按鈕即可實現用vba獲取工作表名稱的效果
關閉VBA編輯器視窗,返回Excel工作表介面,在A列我們就可以看到獲取到的工作表名稱