如何在表中实现自动提取表格名称？

zyhui1961

杨成云 发表于 2009-6-10 09:21
方法一
　　常规方法 cell函数
　　也可以这样取得工作表名，在任一单元格输入：

怎么获取所有工作表名？谢谢！

zyhui1961

杨成云 发表于 2009-6-13 19:53
你最好上传一个附件，写明具体要求，这样才更好。

再提供一种方法：用VBA自定义函数

怎么获取所有工作表名？谢谢！

杨成云

'例如：使用自定义函数，获取当前工作簿中第n个工作表的名称Sheetname
Public Function sheetname(n)
    Application.Volatile
    If n > Sheets.count Then
        sheetname = ""
    Else
        sheetname = Sheets(n).Name
    End If
     Application.Volatile
End Function

例如：在a1输入1，在B1输入sheetname(a1)


'再例如：
'当t=1时，获取当前工作簿名
'当t<>0且t<>1时，获取当前工作簿与工作表名
Public Function ActiveSheetname(Optional t = 0)
    Application.Volatile
    m = ActiveSheet.Name
    n = ActiveWorkbook.Name
    If t = 0 Then
        ActiveSheetname = m
    ElseIf t = 1 Then
        ActiveSheetname = n
    Else
        ActiveSheetname = "[" & n & "]" & m
    End If
     Application.Volatile
End Function