Сохраните файл Excel как CSV без потери специальных символов β

Question

У меня есть файл с β символами. При преобразовании Excel в CSV они преобразуются в ?. Я делаю это через ADODB.

Dim CONNECTION1
Set CONNECTION1 = WScript.CreateObject("ADODB.Connection")
CONNECTION1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Test.xlsx;Extended Properties=""Excel 12.0;HDR=YES;"""

Dim RECORDSET1
Set RECORDSET1 = WScript.CreateObject("ADODB.Recordset")
RECORDSET1.Open "SELECT * FROM [Sheet1$]", CONNECTION1, 3, 1

Dim CONNECTION2
Set CONNECTION2 = WScript.CreateObject("ADODB.Connection")
CONNECTION2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Test.csv;Extended Properties=""Text;HDR=Yes;FMT=Delimited;CharacterSet=65001;"""
CONNECTION2.Execute "CREATE TABLE [Test.csv] ([aa] VARCHAR(200), [bb] VARCHAR(200))"

Dim RECORDSET2
Set RECORDSET2 = WScript.CreateObject("ADODB.Recordset")
RECORDSET2.Open "SELECT * FROM [Test.csv]", CONNECTION2, 2, 2

Do Until RECORDSET1.EOF
    RECORDSET2.AddNew
    Dim i
    For i = 0 To RECORDSET1.Fields.Count - 1
        WScript.Echo RECORDSET1.Fields(i).Value
        RECORDSET2.Fields(i).Value = RECORDSET1.Fields(i).Value
    Next
    RECORDSET2.Update
    RECORDSET1.MoveNext
Loop

Answer 1

У меня есть решение, и оно у меня работает нормально

ObjExcelFile_CSVSource.SaveAs CSVFile,42