Я сохраняю каждый лист как 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
Нужны рекомендации по этому поводу.
Это помогает скопировать рабочий лист перед его сохранением.
ActiveSheet.Copy
ActiveSheet.SaveAs Filename: = "\\Lakesh\ExportToCSVs\" & nm & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False