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

Question

我有一个 excel VBA 脚本，用于将一堆报告（大约 100 个）合并到一个工作表中，对于我添加的每个工作表，我希望文件名出现在一列中，但是我需要删除扩展名“.xlsx”我没问题，但是当我删除扩展名时，单元格的格式会发生变化，例如，一个文件可能被命名为 001.xlsx 我删除了 .xlsx 并且 excel 删除了前导 00。 go 如何删除文件扩展名但保留单元格格式？

这是我用来添加文件名的代码：

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

非常感谢任何帮助，谢谢。

Answer 1

在单元格文本的开头加上单引号（'）会使 Excel 将单元格内容视为文本，因此“001”在删除“.xlsx”部分后将保持原样。 cell.Value 将等于没有单引号的文件名。