如何在Excel中获取当前工作簿的位置/路径？

有时，您可能会同时打开多个工作簿，然后忘记这些工作簿的位置。现在我将介绍如何在Excel中获取当前工作簿位置/路径的方法。

使用公式获取工作簿位置

使用Kutools for Excel获取工作簿位置

使用VBA获取工作簿位置

使用Kutools for Excel打开所在文件夹

使用公式获取工作簿位置

在Excel中，您可以使用公式来获取工作簿位置。

选择一个单元格并选择以下公式之一，将其粘贴到单元格中，然后按Enter键以获取位置。

获取工作簿位置

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

获取工作簿位置和工作簿名称

=SUBSTITUTE( LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")

获取工作簿位置、工作簿名称和当前工作表名称

=CELL("filename",A1)

备注：如果您之前从未保存过当前工作簿，则前两个公式将返回#VALUE! 错误，而公式 =CELL("filename",A1) 将返回空白。

使用Kutools for Excel获取工作簿位置

借助Kutools for Excel的插入工作簿信息工具，您可以获取工作簿位置并将其插入到所需的单元格中。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要插入工作簿位置的单元格，然后点击 Kutools Plus > 工作簿 > 插入工作簿信息。参见截图：

2. 在“插入工作簿信息”对话框中，勾选需要插入的信息选项，并且还可以指定在“插入位置”部分中将信息插入单元格、页眉或页脚。

3. 点击确定。现在所选的信息已被插入。

注意：如果当前工作簿从未保存过，此工具将返回“This workbook never saved”的文本。

使用VBA获取工作簿位置

如果您想尝试使用VBA获取工作簿位置，可以按照以下步骤操作：

1. 启用工作簿，然后按 Alt + F11 键打开Microsoft Visual Basic for Applications窗口，接着点击 插入 > 模块 以显示模块窗口。

2. 将以下VBA代码粘贴到 模块窗口中。

VBA：显示工作簿位置

Sub DisplayWorkbookPath()
    MsgBox ActiveWorkbook.Path, vbInformation, "Workbook Path"
End Sub

3. 点击运行按钮，然后会弹出一个对话框向您显示工作簿路径。

注意：如果您之前从未保存过当前工作簿，此VBA将弹出一个空白对话框。参见截图：

如果您想显示工作簿位置和工作簿名称，可以使用以下VBA：

VBA：显示工作簿位置和工作簿名称

Sub DisplayWorkbookFullName()

    MsgBox ActiveWorkbook.FullName, vbInformation, "Workbook Complete Path"

End Sub

使用Kutools for Excel打开所在文件夹

如果您想弹出包含当前工作簿的文件夹，也可以应用Kutools for Excel的打开当前文档所在文件夹功能。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

激活您要打开其文件夹的工作簿，然后点击 Kutools Plus > 工作簿 > 打开当前文档所在文件夹。参见截图：

然后包含当前工作簿的文件夹将被打开。