如何将文件名复制到单元格，删除扩展名但保留格式

Question

我有一个excel VBA脚本，我正在使用它将一堆报告(大约100)合并到一个工作表中，对于我正在添加的每个工作表，我希望文件名出现在一列中，但是我需要删除扩展名"我可以做没有问题，但是，当我删除扩展单元格的格式改变，例如，一个文件可能被命名为001.xlsx，我删除。xlsx和excel下降领先的00。我如何删除文件扩展名，但保留单元格格式?

下面是我用来添加文件名的代码:

rngFile.Value = wbkSrc.Name
rngFile.Replace What:=".xlsx", Replacement:="", LookAt:=xlPart

任何帮助都是非常感激的，谢谢。

Answer 1

在单元格文本的开头添加单引号(')将使Excel将单元格内容视为文本，因此"001"将在删除".xlsx"后保持原样部分。细胞。Value将等于不带单引号的文件名。