VBA Сохранение один лист в формате CSV (не вся рабочая книга)

Question

Я ценю есть много записей, как save individual excel sheets as csv и Export each sheet to a separate csv file - Но я хочу, чтобы сохранить одного листа в книге.

Мой код в моем файле xlsm имеет параметры и лист данных. Я создаю копию листа данных со вставленными значениями, а затем хочу сохранить ее как csv. В настоящее время вся моя книга изменяет имя и становится csv.

Как «сохранить как csv» один лист в книге Excel?

Есть ли Worksheet.SaveAs или мне нужно переместить лист данных в другую книгу и сохранить его таким образом?

КОД ОБРАЗЦА

' [Sample so some DIMs and parameters passed in left out] 
Dim s1 as Worksheet 
Dim s2 as Worksheet 

Set s1 = ThisWorkbook.Sheets(strSourceSheet) 
' copy across 
s1.Range(s1.Cells(1, 1), s1.Cells(lastrow, lastcol)).Copy 

' Create new empty worksheet for holding values 
Set s2 = Worksheets.Add 

s2.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats 

' save sheet 
s2.Activate 
strFullname = strPath & strFilename 


' >>> BIT THAT NEEDS FIXIN' 
s2.SaveAs Filename:=strFullname, _ 
    FileFormat:=xlCSV, CreateBackup:=True 

' Can I do Worksheets.SaveAs? 

Использование Windows 10 и Office 365

Answer 1

Этот код отлично подходит для меня.

Sub test() 

Application.DisplayAlerts = False 

ThisWorkbook.Sheets(strSourceSheet).Copy 
ActiveWorkbook.SaveAs Filename:=strFullname, FileFormat:=xlCSV, CreateBackup:=True 
ActiveWorkbook.Close 

Application.DisplayAlerts = True 

End Sub 

Это делает копию всего strSourceSheet листа, который открывает новую книгу, которую мы можем сохранить в виде файла .csv, то он закрывает вновь сохраненный файл в формате CSV, не портя имя файла на ваш исходный файл.

Answer 2

Вам просто нужно сохранить книгу в виде файла CSV. В Excel появится диалоговое предупреждение о том, что вы сохраняете на один лист, но вы можете подавить предупреждение с помощью Application.DisplayAlerts = False.

Не забудьте вернуть его обратно к истине.

Answer 3

Это довольно общий

Sub WriteCSVs() 

Dim mySheet As Worksheet 
Dim myPath As String 

'Application.DisplayAlerts = False 

For Each mySheet In ActiveWorkbook.Worksheets 

    myPath = "\\myserver\myfolder\" 

    ActiveWorkbook.Sheets(mySheet.Index).Copy 
    ActiveWorkbook.SaveAs Filename:=myPath & mySheet.Name, FileFormat:=xlCSV, CreateBackup:=True 
    ActiveWorkbook.Close 

Next mySheet 

'Application.DisplayAlerts = True 

End Sub