VBA提取当前Excel、Word文件后缀名

VBA提取当前Excel工作簿的后缀名，可以使用以下代码：

Sub 提取当前Excel工作簿后缀名()
book_name = ThisWorkbook.Name       '返回当前工作簿名称
'book_name = ActiveWorkbook.Name       '返回当前工作簿名称
book_basename = CreateObject("scripting.filesystemobject").getbasename(book_name)       '返回基名称
suffix = Replace(book_name, book_basename, "")  '获取后缀名
MsgBox suffix
End Sub

提取当前Word文档的后缀名，可以使用以下代码：

Sub 获取当前Word文档后缀名()
book_name = ActiveDocument.Name       '返回当前Word文档名称
book_basename = CreateObject("scripting.filesystemobject").getbasename(book_name)       '返回基名称
suffix = Replace(book_name, book_basename, "")  '获取后缀名
MsgBox suffix
End Sub

以上代码原理是分别获取含有后缀名的文件名和不含有后缀名的文件名，再用Replace函数将基名称替换为空，就只剩下后缀名了，比如当前文档是“XXX.docx”，那么代码执行的结果就是“.docx”。如果想要没有“.”的后缀名，可以将Replace函数的第2个参数改成“book_basename&"."”：

Sub 获取当前Word文档后缀名()
book_name = ActiveDocument.Name       '返回当前Word文档名称
book_basename = CreateObject("scripting.filesystemobject").getbasename(book_name)       '返回基名称
'suffix = Replace(book_name, book_basename, "")  '获取后缀名（有"."）
suffix = Replace(book_name, book_basename & ".", "")  '获取后缀名（无"."）
MsgBox suffix
End Sub

对您有帮助可以分享或转藏，避免以后找不到。想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。