Excel里如何获取当前路径？如何显示在单元格中？

Excel中获取当前路径及显示在单元格中的方法详解

在Excel中，有时候我们需要获取当前的工作簿路径，并将其显示在单元格中，以便于文件的管理和引用。以下将详细介绍如何在Excel中实现这一功能。

一、获取当前路径的方法

1. 使用VBA宏

VBA（Visual Basic for Applications）是Excel内置的编程语言，我们可以通过编写VBA宏来获取当前工作簿的路径。

（1）打开Excel，按下`Alt + F11`键进入VBA编辑器。

（2）在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub GetWorkbookPath()

Dim strPath As String

strPath = ThisWorkbook.Path

MsgBox strPath

End Sub

```

（3）关闭VBA编辑器，回到Excel界面，按下`Alt + F8`，选择“GetWorkbookPath”，点击“运行”按钮，即可在弹出的消息框中看到当前工作簿的路径。

2. 使用公式

除了使用VBA宏，我们还可以通过公式来获取当前工作簿的路径。

（1）在需要显示路径的单元格中输入以下公式：

```excel

=TEXT(THISWORKBOOK.PATH, "路径格式")

```

其中，“路径格式”可以根据需要自定义，例如“完整路径”、“仅文件名”等。

（2）按下回车键，单元格中将显示当前工作簿的路径。

二、显示在单元格中的方法

1. 使用VBA宏

在VBA宏中，我们已经获取了当前工作簿的路径，接下来可以将这个路径赋值给单元格。

（1）在VBA编辑器中，找到之前编写的“GetWorkbookPath”宏。

（2）将以下代码添加到该宏中：

```vba

Sub ShowPathInCell()

Dim strPath As String

strPath = ThisWorkbook.Path

Cells(1, 1).Value = strPath

End Sub

```

（3）关闭VBA编辑器，回到Excel界面，按下`Alt + F8`，选择“ShowPathInCell”，点击“运行”按钮，即可在A1单元格中显示当前工作簿的路径。

2. 使用公式

在公式中，我们已经获取了当前工作簿的路径，接下来可以直接将这个路径赋值给单元格。

（1）在需要显示路径的单元格中输入以下公式：

```excel

=TEXT(THISWORKBOOK.PATH, "路径格式")

```

（2）按下回车键，单元格中将显示当前工作簿的路径。

三、相关问答

1. 问：如何设置“路径格式”参数？

答： 在公式中，可以通过修改“路径格式”参数来自定义路径的显示方式。例如，使用“完整路径”可以显示包括盘符在内的完整路径，使用“仅文件名”可以只显示文件名。

2. 问：如何将路径赋值给多个单元格？

答： 可以使用VBA宏或公式中的数组赋值功能。在VBA中，可以使用`Range`对象的`Value`属性一次性赋值给多个单元格；在公式中，可以使用数组公式。

3. 问：如何获取当前工作表路径？

答： 可以使用`ThisWorkbook.Sheets(工作表名称).Path`来获取当前工作表的路径。

4. 问：如何获取当前工作簿的文件名？

答： 可以使用`ThisWorkbook.Name`来获取当前工作簿的文件名。

通过以上方法，我们可以在Excel中轻松获取当前路径，并将其显示在单元格中。希望本文对您有所帮助。