Чтение текста в Юникоде из txt файла в столбец Excel 2010

[ymnuhj]

В общем пытаюсь прочесть, но корректно (без кракозябр) получается только первая строка. Винда английская.

Sub ReadTextFile()
Dim Buffer
Dim FSO As FileSystemObject
Dim FSOFile As TextStream
Dim FilePath As String
r = 1

FilePath = "C:\text.txt"

Set FSO = New FileSystemObject
If FSO.FileExists(FilePath) Then
Set FSOFile = FSO.OpenTextFile(FilePath, 1, False)
Buffer = vbNullString
Do While Not FSOFile.AtEndOfStream
Buffer = FSOFile.ReadLine()
ThisWorkbook.Worksheets(1).Cells(r, 1).Value = StrConv(Buffer, vbFromUnicode)
r = r + 1
Loop
FSOFile.Close
Else
MsgBox (FilePath & " does not exist")
End If
End Sub

Прошу указать на мои ошибки или подсказать решение.
Спасибо

[doober]

У вас файл в кодировке UTF-16 LE/UCS-2 Little Endian

Один из вариантов перекодировать

[ymnuhj]

Как я понимаю Юникод имеет несколько разновидностей. Какую альтернативу стоит попробовать, и как перекодировать средствами VBA.?Либо записать в файл в другой разновидности Юникод?(Этот файл я записал из экселя)

Текст должен обязательно быть в юникоде для того чтобы рускоязычные буквы не превращялись в хлам на англоязычной винде

[EducatedFool]

Функции перекодировки текстовых строк и текстовых файлов:
http://excelvba.ru/code/encode

[ymnuhj]

Но можно пойти другим путем. Если удалось прочесть весь текст из юникода в одну ячейку (и в одну переменную), то можно просто разбить ее на строки (которые изначально были в текстовом файле) и записать их все в колонку.
Либо может можно сразу закинуть эту переменную в колонку Эксель?
Вот тока как это сделать?


Чтоб все было кристально понятно прилагаю снимок. Там показан текстовый файл который был в юникоде, и экселевский файл с загруженным текстом. В ячейке А1 то что получилось, в колонке B то чего нужно добиться.

Вот текст VBA который использовался для считывания Юникода на английской винде.

Sub Макрос1()
Dim Buffer As String, Simv As String * 1
Open "C:\text.txt" For Random As #1 Len = 1
Do While Not EOF(1)
Get #1, , Simv
Buffer = Buffer & StrConv(Simv, vbFromUnicode)
Loop
Close #1
ActiveCell.Value = Buffer
End Sub

Текст в свою очередь был записан в файл с помощью кода на русской винде:
Sub SaveWorksheetAsUnicodeTxt()
thisworkbook.sheets(1).copy
activeworkbook.saveas "C:\text.txt", xlunicodeText
activeworkbook.close false
End Sub


Что посоветуете? Как заставить его создать колонку?

Заранее спасибо всем обитателям форума.

[DiemonStar]

А если так?

Sub Макрос1()
Dim Simv As String * 1
Open "C:\text.txt" For Random As #1 Len = 1
I = 1
Do While Not EOF(1)
Get #1, , Simv
Cells(I,1) = StrConv(Simv, vbFromUnicode)
I = I + 1
Loop
Close #1
End Sub

[ymnuhj]

неа, не пашет

[DiemonStar]

А вот так у меня работает:

Sub Макрос1()
Dim Simv As String * 2
Open "C:\text.txt" For Random As #1 Len = 2
I = 1
Do While Not EOF(1)
Get #1, , Simv
Cells(I,1) = StrConv(Simv, vbFromUnicode)
I = I + 1
Loop
Close #1
End Sub

[ymnuhj]

Да, интересный трюк менять число во второй и третьей строке программы. Действительно записывает все в колонку, только теряет колличество ячеек. На прикрепленном снимке все видно

Только он из за этого не годится. Потому что текстовый файл это по сути Save. Я пытаюсь смоделировать ситуацию когда столбец сохраняется из руской винды(и оффиса), а потом загружается в такую же книгу на английском компе без потери информации.

[DiemonStar]

ОМГ...

Sub dd1()
Dim Simv As String * 2
Open "C:\text.txt" For Random As #1 Len = 2
I = 1
Do While Not EOF(1)
Get #1, , Simv
S = StrConv(Simv, vbFromUnicode)
If S = Chr(13) Then
  I = I + 1
  Get #1, , Simv
  Cells(I, 1) = ""
Else
  Cells(I, 1) = Cells(I, 1) + S
End If
Loop
Close #1
End Sub