XLS to CSV with utf-8 encoding

Hi all,

I have an excel file, where I have some special characters (like áí) which I want to export to CSV file.
For the export I am using vba with the code bellow. If I export the data, the data is encoded by the windows (xp en) with the current locale settings, not with the utf8 (also the BOM is missing in the CSV file). Any idea how to export true UTF-8 file?
Best regards,

Boris

Sub csvexport()


     
    Dim Last_Column As Integer
    Dim Last_Row As Long
    Dim Row_Loop As Long
    Dim Column_Loop As Integer
    Dim FileNum As Integer
    filedatename = Format(Now(), "yyyymmddhhmmss")
    Const DELIMITER = ";"
    Const MYFILE = "C:\test.csv"

    FileNum = FreeFile
     
    If Dir(MYFILE) <> "" Then
        If MsgBox(MYFILE & " will be appended with new data if you click OK", vbOKCancel) = vbCancel Then
            MsgBox ("Exiting Code")
            End
        End If
    End If
     
    With Sheets("688_H").Cells
        Last_Column = 63
        Last_Row = .Find("*", [A1], , , xlByRows, xlPrevious).Row
    End With
     
     
    Open MYFILE For Append As #FileNum
     
    For Row_Loop = 1 To Last_Row
        For Column_Loop = 1 To Last_Column
            Print #FileNum, Sheets("688_H").Cells(Row_Loop, Column_Loop).Value & DELIMITER;
        Next Column_Loop
        Print #FileNum,
    Next Row_Loop
     
    Close #FileNum


End Sub

Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Sub csvexport()
 
 
     
    Dim Last_Column As Integer
    Dim Last_Row As Long
    Dim Row_Loop As Long
    Dim Column_Loop As Integer
    Dim FileNum As Integer
    filedatename = Format(Now(), "yyyymmddhhmmss")
    Const DELIMITER = ";"
    Const MYFILE = "C:\test.csv"
 
    FileNum = FreeFile
     
    If Dir(MYFILE) <> "" Then
        If MsgBox(MYFILE & " will be appended with new data if you click OK", vbOKCancel) = vbCancel Then
            MsgBox ("Exiting Code")
            End
        End If
    End If
     
    With Sheets("688_H").Cells
        Last_Column = 63
        Last_Row = .Find("*", [A1], , , xlByRows, xlPrevious).Row
    End With
     
     
    Open MYFILE For Append As #FileNum
     
    For Row_Loop = 1 To Last_Row
        For Column_Loop = 1 To Last_Column
            Print #FileNum, Sheets("688_H").Cells(Row_Loop, Column_Loop).Value & DELIMITER;
        Next Column_Loop
        Print #FileNum,
    Next Row_Loop
     
    Close #FileNum
 
 
End Sub