在excel中如何把一个工作簿的名字都提取出来
发布网友
发布时间：2024-04-18 01:25
共2个回答
热心网友
时间：2024-04-21 11:40
1、有时在使用EXCEL制作表格时，需要提取出工作表标签名称，进行引用，要达到此目的，必须使用CELL函数，此函数是EXCEL中的信息函数，返回有关单元格的格式、位置或内容的信息。
2、CELL函数有两个参数，CELL(info_type, [reference])，第一个参数指定要返回的单元格信息的类型，第二个参数，需要其相关信息的单元格。当输入或选择此函数时，后跟第一参数的选择。
3、这里选择“filename”，包含引用的文件名（包括全部路径），文本类型。但当输入公式：=CELL("filename")后，发现返回的结果是空值。这是因为引用的工作表尚未保存，则返回空文本 ("")。
4、将工作簿保存，关闭重新打开，或者在任意单元格输入内容，再或者按F9功能键刷新下，都将会看到工作表名。
5、有时，需要对同一工作簿的多个工作表各自提取出自己的表名，以便进一步引用，可以按Ctrl加选，选择多个工作表，再输入公式。
6、但当选择其它工作表时，发现返回的并不是各自的工作表名，都是输入公式时的当前工作表的表名，这是因为公式中省略了第二参数，参数中指定的信息返回给最后更改的单元格，也就是输入公式的当前活动单元格了。
7、此处提取的是工作表名，原则上引用哪个单元格都一样，都将返回所在的表名，但A1是左上角第一个，比较简单好写：=CELL("filename",A1)
8、此时选中其它工作表时，就可看到返回的是各自的工作表名。
9、但是现在提取出来的是带路径的工作表名，所以还需要作进一步的提取，注意观察，会发现工作表名前，是带“[ ]”的工作簿名，利用这一特征，可以使用FIND函数来判断“]”的位置，再提取出“]”后面的内容，即是工作表名。
10、完整的提取公式为：=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)，这里的99是泛指，假设工作表名没有这么多字符，如果要按实选取，还要再判定下字符长度，公式会变得很长，在这里没这必要。在设计公式时，只要达到目的，能简化的尽量简化。
热心网友
时间：2024-04-21 11:41
### 使用VBA宏提取工作表名字
1. **打开Excel并按下`Alt + F11`** 来打开VBA编辑器。
2. **在VBA编辑器中**，点击`插入` -> `模块` 来创建一个新的模块。
3. **在新模块中**，复制并粘贴以下代码：
```vba
Sub ExtractSheetNames()
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim i As Integer
' 设置你要写入工作表名称的工作表，这里假设是第一个工作表
Set wb = ThisWorkbook
Set ws = wb.Sheets(1)
' 清除之前的数据（如果有的话）
ws.Cells.Clear
' 在第一列写下标题
ws.Cells(1, 1).Value = "工作表名称"
' 设置开始写入名称的行
i = 2
' 遍历所有工作表并写下名称
For Each ws In wb.Sheets
ws.Cells(i, 1).Value = ws.Name
i = i + 1
Next ws
End Sub
```
4. **运行宏**：你可以通过点击VBA编辑器工具栏上的绿色播放按钮，或者按下`F5`键来运行这个宏。
5. **回到Excel**：按下`Alt + Q`来退出VBA编辑器，你会看到第一个工作表中列出了所有工作表的名称。
### 注意事项
* 请确保在运行VBA代码之前保存你的工作簿，以防意外情况发生。
* 这个代码会覆盖你选定的工作表（在这个例子中是第一个工作表）中的所有数据，所以请确保这个工作表是空的，或者你已经备份了重要数据。
* 如果你想要将工作表名称提取到不同的工作表或位置，你可以修改代码中的`Set ws = wb.Sheets(1)`这一行来指定不同的工作表。
