Как сохранить листы Excel в формате CSV с настраиваемым расширением?

Question

Я хотел бы сохранить свои рабочие листы из книги как отдельные csv-файлы, хотя и с настраиваемым расширением.

Это результат, который я ищу:

Sheet1.xyz Sheet2. xyz et c

С помощью приведенного ниже кода я могу сохранить все листы в виде файлов csv:

Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

    SaveToDirectory = "D:\test\"

    For Each WS In ThisWorkbook.Worksheets
        WS.SaveAs SaveToDirectory & WS.Name, xlCSV
    Next

End Sub

В сообщении ниже сохраняется рабочая книга Excel с настраиваемое расширение:

Сохранить как другой тип файла

Как я могу объединить их, чтобы сохранить рабочие листы в виде файлов csv- (или текстовых) с настраиваемым extension "xyz"?

Большое спасибо!

Answer 1

Попробуйте следующий способ:

Public Sub SaveWorksheetsAsCsv()
Dim WS As Worksheet
Dim SaveToDirectory As String

   SaveToDirectory = "D:\test\"

   For Each WS In ThisWorkbook.Worksheets
        WS.SaveAs SaveToDirectory & WS.Name & ".xyz", xlCSV
   Next
End Sub