一、通过VBA宏获取当前打开文件的完整路径
打开VBA编辑器 按下 `Alt + F11` 打开VBA编辑器，插入一个新模块：
```vba
Sub GetOpenFilePath()
Dim filePath As String
filePath = ThisWorkbook.FullName
MsgBox filePath
End Sub
```
运行宏
回到Excel，按 `Alt + F8` 执行 `GetOpenFilePath` 宏，将显示当前打开文件的完整路径。
二、批量获取文件夹内所有文件名
使用VBA遍历文件夹
编写以下代码列出指定文件夹内的所有文件名：
```vba
Sub ListFilesInFolder()
Dim folderPath As String
Dim fileName As String
Dim i As Integer
Dim fso As Object
Dim folder As Object
Dim file As Object
' 设置文件夹路径
folderPath = "D:\downloads\" ' 修改为实际路径
' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
' 清空目标单元格区域
Range("A1:A100").ClearContents ' 根据需要调整行数
' 遍历文件夹内的文件
i = 1
For Each file In folder.Files
fileName = file.Name
Cells(i, 1).Value = fileName
i = i + 1
Next file
End Sub
```
运行宏
执行 `ListFilesInFolder` 宏后，文件名将显示在A1:A100区域。
三、从链接引用获取文件名
若文件通过链接引用（如 `=C:\[Book2.xls]Sheet1`），可直接在公式中获取文件名：
编辑单元格公式
将引用地址中的文件名部分单独提取，例如：
```excel
=TEXT(Sheet1!$A1,"[Book2.xls]Sheet1")
```
这将返回文件名 `Book2.xls`，无需实际打开文件。
注意事项
权限设置：
确保宏安全性设置允许运行宏，避免因安全限制失败。
文件路径格式：
使用双反斜杠（如 `C:\路径\文件名`）或原始字符串（如 `C:\？Book2.xls`）避免路径错误。
错误处理：
建议在VBA代码中添加错误处理机制，例如：
```vba
On Error GoTo ErrorHandler
' 你的代码
Exit Sub
ErrorHandler:
MsgBox "错误：" & Err.Description
```
性能优化：
处理大量文件时，考虑使用 `For Each...File` 循环而非 `Dir` 函数以提高效率。
通过以上方法，您可以灵活地获取打开的文件名或批量处理文件名，提升Excel自动化效率。