2012年職稱計算機考試：表格獲取工作表名稱的方法

第一，excel提取工作表名稱：宏表函數(shù)
    excel提取工作表名稱的方法，使用宏表函數(shù)來提取工作表名稱，并自動添加超鏈接。
    第二，vba自定義函數(shù)獲取工作表名稱
    下面再介紹一個vba獲取工作表名稱的自定義函數(shù)。使用方法如下，打開需要excel工作表，按下ALT+F11，打開VBE編輯器，單擊插入——模塊，復(fù)制下面的代碼，然后關(guān)閉VBE?；氐絜xcel工作表，在空白單元格輸入公式：=gname(ROW(A1))，下拉復(fù)制，知道出現(xiàn)0錯誤為止，即可以實現(xiàn)用vba獲取工作表名稱。
    Function gname(x As Integer)
    If x = 0 Then
    gname = ActiveSheet.Name
    ElseIf x > 0 And x Sheets.Count Then
    MsgBox "超出范圍"
    End If
    Application.Volatile
    End Function
    第三，vba獲取工作表名稱
    同樣，在excel中，按下ALT+F11，打開VBE編輯器，插入——模塊，復(fù)制下面的代碼，然后按F5鍵或者單擊工具欄綠色的“運行”按鈕即可實現(xiàn)用vba獲取工作表名稱。獲取的工作表名稱將存放在當前工作表的A列。
    Sub vba獲取工作表名稱()
    For x = 1 To Sheets.Count
    Cells(x, 1) = Sheets(x).Name
    Next x
    End Sub