Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Апр

Чтение и запись в файл в юникоде с помощью макросов в excel

Posted by Chas under Basic

Казанский
В проблему не вникал, но может так сделать: сформировать строку из ячеек, переложить ее в байтовый массив, сохранить массив в файл (в двоичном виде).
Потом считать файл в байтовый массив, переложить в строку, разбить на ячейки?

Вот, попробуйте. Полученный файл открывается Блокнотом, причем Блокнот распознает его как Unicode файл.

Sub Save1stColumn()

Dim s$, b() As Byte

s = Join(Application.Transpose(Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value), vbCrLf)

b = s

Open ActiveWorkbook.FullName & ".case" For Binary As #1

Put 1, , b

Reset

End Sub
Sub ReadTo2ndColumn()

Dim s$, b() As Byte, v

Open ActiveWorkbook.FullName & ".case" For Binary As #1

ReDim b(1 To LOF(1))

Get 1, , b

Reset

s = b

v = Split(s, vbCrLf)

Range("B1").Resize(UBound(v) + 1) = Application.Transpose(v)

End Sub