kodowanie UTF-8 w makro

Question

Witam serdecznie, 

Mam makro, które pobiera dane z pliku CSV i przetwarza je odpowiednio w Excelu. Wygląda ono tak: 

Sub Open_One_Or_Many_Files()

Dim vaFiles As Variant

Dim i As Long

vaFiles = Application.GetOpenFilename _

         (FileFilter:="Excel Filer (*.csv),*.csv", _

         Title:="Open File(s)", MultiSelect:=True)

If Not IsArray(vaFiles) Then Exit Sub

 With Application

      .ScreenUpdating = False

      For i = 1 To UBound(vaFiles)

         Workbooks.Open vaFiles(i)

      Next i

      .ScreenUpdating = True

Problem dotyczy kodowania polskich znaków. Jak ustawić domyślnie kodowanie na UTF-8, żeby dane wyświetlały się prawidłowo? Walczę z tym od dwóch dni. Proszę pomóżcie!

Answer 1

Kodowanie to nie tylko literki z innym formacie, ale i zapis pliku zgodny z tym formatem.

Podobne zastosowanie realizowane jest w tym przypadku: