如何读取工作表名称

zyhui1961

yongbin 发表于 2009-6-10 11:51
給你一個用宏表函數做的,文件名可更新.

你好！我把你这个公式复制到我的工作薄中为什么不能用呢？谢谢！

bgt1982

zyhui1961 发表于 2023-2-10 16:09
你好！我把你这个公式复制到我的工作薄中为什么不能用呢？谢谢！

打开宏设置，“启用VBA宏时启用Excel 4.0宏(X)”打勾。

zyhui1961

5910zxc 发表于 2009-6-10 10:44
=CELL("filename")

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

mawenq21

您可以使用 VBA 代码来实现在 Excel 中自动读取所有工作薄的表名。以下是一个简单的代码示例：


Sub GetAllSheetNames()
    Dim wb As Workbook
    Dim ws As Worksheet
    For Each wb In Workbooks
        For Each ws In wb.Sheets
            Debug.Print ws.Name
        Next ws
    Next wb
End Sub

您可以打开 Excel 中的"开发人员"选项卡，然后单击"Visual Basic"按钮打开 VBA 编辑器，将代码复制到编辑器中，然后单击"运行"按钮运行代码。代码将打印所有工作薄的所有工作表名。

请注意，您可以根据需要更改代码以获取所需的信息。例如，您可以将所有工作表名存储在数组中，然后在工作表中使用公式进行处理。

zyhui1961

woshiexcel 发表于 2009-10-30 14:15
=RIGHT(CELL("FILENAME"),LEN(CELL("FILENAME"))-FIND("]",CELL("FILENAME")))
一次性搞定

还要其他的什么操作吗？我把这公式复制到新工作表怎么就不行了呢？

千尺水

5910zxc 发表于 2009-6-10 10:51
好了,帮你搞好了.

非常感谢大佬

my0745

还有个办法，用PQ

my0745

用宏表函数轻松搞定。