Приветствую!
Хочу автоматизировать свой труд, но появилась проблема с кириллицей
Есть множество файлов в формате 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 |
