VBA如何给打开的csv文件另存并重命名

你可以使用下面的VBA代码来打开CSV文件、另存为并重命名：

Sub SaveCSVFile()

    Dim filePath As String
    filePath = "C:\Users\YourUsername\Documents\YourCSVFile.csv" ' 你的CSV文件路径
    
    Dim newName As String
    newName = "NewName.csv" ' 新文件名
    
    Dim newFilePath As String
    newFilePath = "C:\Users\YourUsername\Documents\" & newName ' 新文件路径
    
    Workbooks.Open Filename:=filePath ' 打开CSV文件
    ActiveWorkbook.SaveAs Filename:=newFilePath, FileFormat:=xlCSV ' 另存为并重命名
    ActiveWorkbook.Close ' 关闭文件

End Sub

在上面的代码中，你需要将 `filePath` 变量设置为你的CSV文件的路径，将 `newName` 变量设置为你想要的新文件名，然后将 `newFilePath` 变量设置为新文件的路径。

然后，运行这个宏，它将打开CSV文件，将其另存为新文件并重命名，最后关闭文件。