将图纸导出为CSV将覆盖原始文件名VBA

Question

我将每张工作表保存为csv，当我将每张表保存为csv时，它会将原始模板文件名覆盖为新的csv名称。它从".xlsm"更改为".csv">

我该如何避免这种情况？

我的代码如下：

Sub ExportToCSVs()
Dim ws As Worksheet
Dim nm As String
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Control" Then
ws.Select
nm = ws.Name
filenameconvention = "\LakeshExportToCSVs" & nm
ActiveSheet.SaveAs Filename:="\LakeshExportToCSVs" & nm & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
End If
Next ws
Sheets("Control").Activate
Application.ScreenUpdating = True
MsgBox "Csvs Created!"
End Sub

需要一些指导。

Answer 1

在保存工作表之前复制它会有所帮助。ActiveSheet.Copy ActiveSheet.SaveAs Filename:="\LakeshExportToCSVs" & nm & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False