Приветствую!
Хочу автоматизировать свой труд, но появилась проблема с кириллицей
Есть множество файлов в формате csv (кодировка UTF8 у всех)
содержимое вот такое:
"2203180";"Форма камня Треугольник"
"2144718";"Форма камня Oval"
"2039882";"Форма камня Round"
имеем большую таблицу в которой в строке 1:1 прописаны имена всех файлов
Написал небольшой обработчик для ВПР но вот беда.
При открытии csv из vba он не читает русский текст, получая вот такие кракозябры. "Oval Квадрат" и не разделяет на столбцы
Сам код
Помогите пожалуйста!
Хочу автоматизировать свой труд, но появилась проблема с кириллицей
Есть множество файлов в формате 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 |