Question

我正在尝试找到一种快速方法将xlsx文件保存为与xlsx文件具有相同文件名的csv文件（仅采用csv格式）。我已经记录了一个带有快捷方式的宏，但问题是，每当我尝试使用新文件时，它都会保存为我记录初始宏的相同文件名（即见下文，可能是因为我在代码中标记了文件：{{ 1}}）。是否需要替换3WDL_1 (2014-08-07)10secDataTable sit.csv以使宏保存与我正在使用的实际工作簿具有相同的文件名。

所以基本上我有一个充满xlsx文件的文件夹，我想在每个xslx文件上使用快捷方式/宏将它们转换为与原始xlsx文件具有完全相同名称的csv文件，并保存到同一文件中文件夹中。

我需要用可以与我打开的任何新xlsx文件一起使用的代码替换代码的3WDL_1 (2014-08-07)10secDataTable sit.csv部分。否则我也可以用老鼠的老式方式来做它

非常感谢，

水稻

3WDL_1 (2014-08-07)10secDataTable sit.csv

Answer 1

要获取文件名，请使用：ActiveWorkbook.Name获取路径，使用：ActiveWorkbook.Path

这样的事情也应该有效：

ActiveWorkbook.SaveAs FileName:= ActiveWorkbook.Path & "\" & _
    Replace(ActiveWorkbook.Name, "xslx", "csv"), _
    FileFormat:=xlCSVMac, CreateBackup:=False

将xlsx文件转换为csv

1 个答案: