用VBA获取指定文件的名称，代码很简单，一看就会

欢迎大家来到IT世界,在知识的湖畔探索吧!

一个文件完整的名称包含主名称和扩展名两部分。

比如“Excel笔记.xlsm”中，“Excel笔记.xlsm”是这个文件完整的名称，而“Excel笔记”是它的主名称，“xlsm”是它的扩展名。

怎样用VBA获得这些信息呢？

获得文件完整的名称

要获得一个Excel文件的完整名称，可以读取它的Name属性，如果想获得代码所在工作簿的名称，可以用下面的代码：

Sub 获取文件全名1() MsgBox ThisWorkbook.Name End Sub

欢迎大家来到IT世界,在知识的湖畔探索吧!

当然，也可以用下面的代码：

欢迎大家来到IT世界,在知识的湖畔探索吧!Sub 获取文件的全名2() Dim fso As Scripting.FileSystemObject Dim myFile As String myFile = ThisWorkbook.FullName Set fso = New Scripting.FileSystemObject MsgBox "该文件的全名为:" & fso.GetFileName(myFile) Set fso = Nothing End Sub

获得文件的主名称

参照前面获得完整名称的第二种方法，要想获得一个文件的主名称，可以用下面的过程：

Sub 获取文件的主名称() Dim fso As Scripting.FileSystemObject Dim myFile As String myFile = ThisWorkbook.FullName Set fso = New Scripting.FileSystemObject MsgBox "该文件的基础名称为:" & fso.GetBaseName(myFile) Set fso = Nothing End Sub

获得文件的扩展名

要获得文件的扩展名，也是相同的思路。

欢迎大家来到IT世界,在知识的湖畔探索吧!Sub 获取文件的扩展名() Dim fso As Scripting.FileSystemObject Dim myFile As String myFile = ThisWorkbook.FullName Set fso = New Scripting.FileSystemObject MsgBox "该文件的扩展名为:" & fso.GetExtensionName(myFile) Set fso = Nothing End Sub

代码很简单，你学会了吗？

关注“Excel笔记”，学更多Excel技巧。