你是不是经常需要手动记录Excel文件的位置、工作表名称或当前单元格信息？或者需要在报表中自动显示文件路径，方便他人查找？今天，我将教你如何结合宏（VBA）和Excel函数（CELL/INFO），轻松获取工作表的各种信息，让你的Excel自动化程度飙升！
1. CELL函数：获取单元格信息
CELL函数可以返回单元格的格式、位置、内容等信息，它的基本语法如下：
=CELL("信息类型", [引用单元格])常用信息类型
参数 | 说明 | 示例 |
"filename" | 返回文件完整路径及工作表名 | =CELL("filename", A1) |
"address" | 返回单元格地址 | =CELL("address", B2) |
"col" | 返回列号 | =CELL("col", C3) |
"row" | 返回行号 | =CELL("row", D4) |
示例1：提取当前文件路径
=CELL("filename", A1)结果示例：
C:\Users\YourName\Documents\[工作簿.xlsx]Sheet1
如何只提取路径（不含工作表名）？
结合LEFT和FIND函数：
=LEFT(CELL("filename", A1), FIND("[", CELL("filename", A1))-1)2. INFO函数：获取工作簿环境信息
INFO函数可以返回当前Excel环境的信息，如操作系统、Excel版本等。
=INFO("信息类型")常用信息类型
参数 | 说明 | 示例 |
"directory" | 当前文件所在文件夹 | =INFO("directory") |
"numfile" | 当前打开的工作簿数量 | =INFO("numfile") |
"osversion" | 操作系统版本 | =INFO("osversion") |
"recalc" | 计算模式（自动/手动） | =INFO("recalc") |
示例2：获取当前文件夹路径
=INFO("directory")结果示例：
C:\Users\YourName\Documents\
3. 结合VBA宏，动态获取信息
如果CELL("filename")在文件未保存时返回空值，我们可以用VBA宏自动提取并写入单元格。
宏代码：自动写入文件路径
Sub GetFilePath()
Dim filePath As String
filePath = ThisWorkbook.FullName
Sheets("Sheet1").Range("A1").Value = filePath
End Sub如何使用？
- 按 Alt + F11 打开VBA编辑器
- 插入模块（Insert > Module）
- 粘贴代码并运行（F5）
进阶：自动更新路径（事件宏）
Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value = ThisWorkbook.FullName
End Sub这样，每次打开文件时，A1单元格会自动更新为当前文件路径！
4. 实际应用场景
① 动态报表标题（自动显示文件路径）
="当前报表路径：" & LEFT(CELL("filename", A1), FIND("[", CELL("filename", A1))-1)② 日志记录（自动记录修改时间）
结合NOW()和CELL函数：
=A2 & " 最后修改于 " & TEXT(NOW(), "yyyy-mm-dd hh:mm:ss")③ 跨文件引用时自动更新路径
=INDIRECT("'[" & CELL("filename", A1) & "]Sheet1'!B2")5. 总结
方法 | 适用场景 | 优点 |
CELL("filename") | 获取文件路径、工作表名 | 无需VBA，简单易用 |
INFO("directory") | 获取当前文件夹路径 | 适用于未保存的文件 |
VBA宏 | 动态更新、自动化处理 | 功能强大，可自定义逻辑 |
现在，你已经掌握了如何用CELL、INFO函数和VBA宏自动获取Excel文件信息的方法！快去试试，让你的报表更智能吧！
喜欢这篇教程？点赞收藏，关注我获取更多Excel技巧！