宏怎么获得当前excel文件名

获取Excel文件名的方法有多种，主要有：使用VBA代码、利用Excel内置函数、通过Power Query等。为了便于理解和应用，本文将详细介绍这几种方法，并重点展开使用VBA代码的具体步骤。

一、使用VBA代码

VBA（Visual Basic for Applications）是一种在Excel中非常强大的工具，可以实现许多自动化操作。通过VBA代码获取当前Excel文件名是非常常见且实用的方法。下面是具体的步骤：

1. 打开VBA编辑器

首先，需要打开Excel文件，然后按 Alt + F11 快捷键打开VBA编辑器。在这个编辑器中可以编写和运行VBA代码。

2. 插入模块

在VBA编辑器中，右键点击左侧的项目资源管理器，选择“插入”>“模块”，这将会插入一个新的模块。

3. 编写代码

在新插入的模块中，输入以下代码：

Sub GetFileName()

    Dim FileName As String
    FileName = ThisWorkbook.Name
    MsgBox "当前文件名是: " & FileName
End Sub

这段代码的作用是获取当前工作簿的文件名，并通过消息框显示出来。ThisWorkbook.Name 是关键，它返回当前工作簿的名称。

4. 运行代码

编写完代码后，可以通过按 F5 键或者点击工具栏上的“运行”按钮来执行代码。运行结果将会在一个消息框中显示当前Excel文件名。

二、利用Excel内置函数

虽然Excel没有直接提供获取文件名的内置函数，但可以通过组合使用多个函数来实现。主要使用的函数有 CELL、FIND 和 MID。

1. 使用CELL函数

首先，在任意单元格中输入以下公式：

=CELL("filename", A1)

这个公式会返回包含完整路径和文件名的字符串，例如 C:UsersYourNameDocumentsYourFile.xlsx。

2. 提取文件名

接下来，使用 FIND 和 MID 函数来提取文件名：

=MID(CELL("filename", A1), FIND("[", CELL("filename", A1)) + 1, FIND("]", CELL("filename", A1)) - FIND("[", CELL("filename", A1)) - 1)

这个公式将会返回纯文件名，例如 YourFile.xlsx。

三、通过Power Query

Power Query是Excel中的一种数据处理工具，也可以用来获取当前文件名。

1. 打开Power Query编辑器

在Excel中，点击“数据”选项卡，然后选择“获取数据”>“自文件”>“从工作簿”。

2. 选择当前文件

在弹出的文件选择窗口中，选择当前的Excel文件，然后点击“导入”。

3. 编辑查询

在Power Query编辑器中，点击“高级编辑器”，输入以下M语言代码：

let

    Source = Excel.CurrentWorkbook(){[Name="TableName"]}[Content],
    FilePath = Text.BeforeDelimiter(Document.Path, "TableName"),
    FileName = Text.AfterDelimiter(FilePath, "")
in
    FileName

这个查询将会返回当前文件的名称。

4. 加载结果

完成编辑后，点击“关闭并加载”，文件名将会被加载到新的工作表中。

四、总结

获取当前Excel文件名的方法有多种，主要有使用VBA代码、利用Excel内置函数、通过Power Query等。使用VBA代码是最灵活和强大的方法之一，可以通过编写简单的代码实现复杂的功能；利用Excel内置函数适用于不熟悉编程的用户，可以通过组合多个函数来实现文件名提取；通过Power Query则适用于需要对数据进行更多操作和处理的场景。

在实际应用中，可以根据具体需求选择合适的方法。掌握这些技巧，不仅可以提高工作效率，还能使日常的Excel操作更加得心应手。

相关问答FAQs：

1. 如何在宏中获取当前Excel文件的文件名？

要在宏中获取当前Excel文件的文件名，可以使用VBA中的ThisWorkbook.Name属性。该属性返回当前工作簿的文件名，包括文件扩展名。

2. 我该如何在宏中将当前Excel文件的文件名作为变量使用？

要将当前Excel文件的文件名作为变量使用，可以在VBA代码中使用一个变量来存储文件名。例如，您可以使用以下代码将当前Excel文件的文件名存储在一个名为fileName的字符串变量中：

Dim fileName As String
fileName = ThisWorkbook.Name

这样，您就可以在后续的代码中使用fileName变量来引用当前Excel文件的文件名。

3. 如何在宏中获取当前Excel文件的文件路径和文件名？

要获取当前Excel文件的文件路径和文件名，可以使用VBA中的ThisWorkbook.FullName属性。该属性返回当前工作簿的完整路径和文件名。

例如，您可以使用以下代码将当前Excel文件的文件路径和文件名存储在一个名为filePath的字符串变量中：

Dim filePath As String
filePath = ThisWorkbook.FullName

这样，您就可以在后续的代码中使用filePath变量来引用当前Excel文件的文件路径和文件名。