Я работаю над следующим макросом в 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