VBA-以XLS版本保存Excel文件的代码，使用与原始文件相同的名称

所以，基本上是标题。我有一个宏，它必须删除列并格式化CSV文件，然后将其另存为XLSX。我的问题是，我似乎找不到宏的代码，所以请使用与原始文件相同的名称保存此类文件

我需要有两个Excel文件保存为CSV和XLSX。这是我的密码：

ChDir "C:\Users\RenJeo3\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\RenJeo3\Desktop\" & "(thisworkbook.fullName)" & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

将“csv”替换为“xlsx”

您还应该能够删除这部分代码，因为filenm现在有.xlsx

除去

---

&“.xlsx”

文件名的语法：=部分错误。是否要将.xlsx版本保存在与.csv文件相同的文件夹中？您好！对的我正在学习如何记录和清理宏，因此我可能错误地删除了某些内容。从OP的信息中不清楚他们是否希望将.xlsx文件存储在与.csv文件相同的文件夹中。啊，是的，全名还包括目录，名称就够了。我想说的是csv需要更换。多亏了这两个，这真的很有帮助！

Dim s As String, NewFileNm As String
s = ThisWorkbook.Name
NewFileNm = Replace(s, "csv", "xlsx")
MsgBox NewFileNm