Я работаю над следующим макросом в excel, который перебирает все листы в книге и сохраняет каждый в свой собственный .CSV-файл. Проблема в том, что мне это нужно, чтобы сохранить как .csv в кодировке UTF-8. Я читал кодировку Excel по умолчанию .csv-это ANSI, который не будет работать для меня, потому что у меня есть файлы со специальными символами в них. Кто-нибудь знает, как я могу это сделать?
макрос:
Public Sub ExportSheetsToCSV()
Dim wsExport As Worksheet
Dim wbkExport As Workbook
For Each wsExport In Worksheets
wsExport.Select
nm = wsExport.Name
If Not IsActiveSheetEmpty() Then
ActiveSheet.SaveAs fileName:="H:CSV_Split_Exports" & nm, FileFormat:=xlCSV
Application.DisplayAlerts = True
End If
Next wsExport
End Sub