Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.04.2008, 14:17   #1
sergushkin
Новичок
Джуниор
 
Регистрация: 13.04.2008
Сообщений: 2
По умолчанию Формирование Excel-документа через OLE-сервер с Unicode-символами

Как в Excel 2003 программным путём (в частости на С++ Builder 6.0) в ячейку поместить строку, содержащую символы Юникод, т.е. в ячейки долна быть килиррица вместе с греческими символами. Пытался в самом Excel записать макрос вставления в ячейку символа из таблицы символов, но в макрос записывается знак '?'. Сначало вписывается вся строка, а потом происходит форматирование ее отдельных частей. Можно ли в исходной строке указать код символа, а не сам символ, чтоб он потом корректно отобазился в ячейке?
Заранее большое спасибо!!!

Последний раз редактировалось sergushkin; 13.04.2008 в 14:20.
sergushkin вне форума
Старый 13.04.2008, 18:58   #2
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Лампочка Не за что.

Код:
Sub ChrW_function_example()
    Dim s As String, v

    Workbooks.Add
    s = ""
    With ActiveCell
        For Each v In Array(931, 32, 1054, 1090, 1076, 1077, 1083)
            s = s & ChrW(v)
            .Value = .Value & ChrW(v)
            .Offset(0, 1).FormulaR1C1 = .Offset(0, 1).FormulaR1C1 & ChrW(v)
        Next
        .Offset(0, 2) = s
    End With
End Sub
дмидми вне форума
Старый 13.04.2008, 23:04   #3
sergushkin
Новичок
Джуниор
 
Регистрация: 13.04.2008
Сообщений: 2
По умолчанию

Спасибо большое за ответ. Помогло. Но в С++ Builder как выяснилось в методе OlePropertySet класса Variant можно указывать юникодную строку.
sergushkin вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с excel файлами через Delphi Winss Помощь студентам 6 08.09.2007 17:54
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол Askat Общие вопросы Delphi 0 18.07.2007 06:28
Формирование отчета в Excel из Delphi Chals Общие вопросы Delphi 1 04.06.2007 19:25