С приятел направихме Ексел таблица за направа на заявки за разкрой на детайли. За съжаление той почина за няма и една седмица от Covid. Преди да помоля за помощ доста порових из нета, но не успях да се справя. Ако ТХТ файла е в ANSI кодировка всичко си е ОК. Но 64 битовата версия на програмата, която се ползва за детайлите прави ТХТ файл с UTF-8 кодировка и всичко излиза ма маймуница ( не се чете ). Намерих това:


Sub RangeToANSI()
Dim c As CellFormat
Application.ScreenUpdating = False
For Each c In Selection
c.Value = ToANSI(c.Value)
Next c
Application.ScreenUpdating = True
End Sub


При стартирането му казва, че ToANSI не е дефинирано.


Трябва ми макрос, който да проверява формата ( кодировката ) на клетките в активния лист в диапазона - клетки А1:N до максималния брой с редове в които има данни и ако са UTF-8 кодировка да ги конвертира в ANSI.


Моля за помощ от тези, които разбират и желаят да помогнат.