Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
кракозябры при открытии csv utf8 vba
 
Приветствую!
Хочу автоматизировать свой труд, но появилась проблема с кириллицей
Есть множество файлов в формате csv (кодировка UTF8 у всех)
содержимое вот такое:
"2203180";"Форма камня Треугольник"
"2144718";"Форма камня Oval"
"2039882";"Форма камня Round"
имеем большую таблицу в которой в строке 1:1 прописаны имена всех файлов
Написал небольшой обработчик для ВПР но вот беда.
При открытии csv из vba он не читает русский текст, получая вот такие кракозябры. "Oval Квадрат" и не разделяет на столбцы
Сам код
Код
Sub test()
For i = 2 To 6
    num = i
    Workbooks.OpenText Filename:= _
"C:\test\" & Cells(1, num).Value & ".csv", Local:=True
    Windows("Work.xlsm").Activate
    Cells(2, num).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'" & Cells(1, num).Value & ".csv'!C1:C2,2,0)"
    Selection.Copy
    Range(Cells(2, num), Cells(431, num)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range(Cells(2, num), Cells(431, num)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks(Cells(1, num).Value & ".csv").Close
    
Next i
End Sub
Помогите пожалуйста!
 
Доброе время суток
Всего лишь задать дополнительный параметр импорта
Код
Origin:=65001

Можно записать макрорекордером при импорте текстового файла.
Успехов.
 
спасибо, помогло
Страницы: 1
Читают тему (гостей: 1)