将工作表导出为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 = "\\Lakesh\ExportToCSVs\" & nm
            ActiveSheet.SaveAs Filename:="\\Lakesh\ExportToCSVs\" & 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:="\\Lakesh\ExportToCSVs\" & nm & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False