如何从文件名（VBA）中删除文件扩展名

Question

我有一个文件名变量，其中包含："Filename.csv"。从我使用的路径中提取文件名：Filename=Dir([fStr])其中fStr从我选择的文件中检索。

我只需要没有".csv"的文件名。如何删除".csv"扩展？

Answer 1

可以使用替换功能：

Filename = replace(Dir([fStr]),".csv","") 

Answer 2

这是最好用的功能像GetBaseName()，而不是依靠功能来替换文本。 Windows允许周期以基本文件名内出现如此类似，这是合法的：

My .csv for Bob.csv 

使用Replace()会导致：

My for Bob 

不是您要寻找的。更好的方法是：

Filename = CreateObject("Scripting.FileSystemObject").GetBaseName(fStr)