VBA 仅从文件名检索扩展名

示例

Dim fso As New Scripting.FileSystemObject
Debug.Print fso.GetExtensionName("MyFile.something.txt")

打印txt请注意，该GetExtensionName()方法已在文件名中处理多个句点。