如何将文件名复制到单元格，删除扩展名但保留格式
How to copy file name to a cell, remove extension but preserve formatting
我有一个 excel VBA 脚本，我用它来将一堆报告（大约 100 个）合并到一个工作表中，对于我添加的每个工作表，我想要文件名称出现在列中，但是我需要删除扩展名“.xlsx”，我可以这样做没问题但是当我删除扩展名时，单元格的格式会发生变化，例如文件可能被命名为 001.xlsx I删除 .xlsx 并 excel 删除前导 00。如何删除文件扩展名但保留单元格格式？
这是我用来添加文件名的代码：
rngFile.Value = wbkSrc.Name
rngFile.Replace What:=".xlsx", Replacement:="", LookAt:=xlPart
非常感谢任何帮助，谢谢。
在单元格文本的开头添加单引号 (') 将使 Excel 将单元格内容视为文本，因此“001”在删除“.xlsx”部分后将保持原样.
cell.Value 将等于没有单引号的文件名。
我有一个 excel VBA 脚本，我用它来将一堆报告（大约 100 个）合并到一个工作表中，对于我添加的每个工作表，我想要文件名称出现在列中，但是我需要删除扩展名“.xlsx”，我可以这样做没问题但是当我删除扩展名时，单元格的格式会发生变化，例如文件可能被命名为 001.xlsx I删除 .xlsx 并 excel 删除前导 00。如何删除文件扩展名但保留单元格格式？
这是我用来添加文件名的代码：
rngFile.Value = wbkSrc.Name
rngFile.Replace What:=".xlsx", Replacement:="", LookAt:=xlPart
非常感谢任何帮助，谢谢。
在单元格文本的开头添加单引号 (') 将使 Excel 将单元格内容视为文本，因此“001”在删除“.xlsx”部分后将保持原样. cell.Value 将等于没有单引号的文件名。