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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2011, 03:38   #1
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию Передать в VBA стринг корректно.

В Excel есть ячейка.
в ней формула вида
=H133 & "*"&ТЕКСТ(B68;"0,00")&"+"&E136&"*"& ТЕКСТ(B91;"0,00")&"+"&E134&"*"&ТЕКС Т(B76;"0,00")&"+"&E137&"*"&ТЕКСТ(B1 24;"0,00")&"+"&E135&"*"&ТЕКСТ(B32;" 0,00")&"= "&ТЕКСТ(B95;"0,00")

ссылки ячейки это различные числа и обозначения. числа меняются динамически.
содержимое ячейки имеет вот такое значение например:
Код:
text = ExWs.Cells(127, 1).value
Debug.Print text
chrw(945) & "_1*467,08+" & chrw(945) & "_3*908,62+" & chrw(945) & "_к*446,56+" & chrw(945) & "_сп*638,39+" & chrw(945) & "_2*2790,04=  670,50
chrw(945) - это знак греческой альфы

собственно по этому тексту я хочу автоматически записать в ворде уравнение.

вот только не могу разобраться как этот текст правильно передать.
если в виде
text = ExWs.Cells(127, 1).value
то в ворде получается
chrw(945) & "_1*467,08+" & chrw(945) & "_3*908,62+" & chrw(945) & "_к*446,56+" & chrw(945) & "_сп*638,39+" & chrw(945) & "_2*2790,04= 670,50

т.е chrw(945) как стринг и вставляется. не обрабатывается как знак.
если использовать
text = chrw(945) & "_1*467,08+" & chrw(945) & "_3*908,62+" & chrw(945) & "_к*446,56+" & chrw(945) & "_сп*638,39+" & chrw(945) & "_2*2790,04= 670,50

то все вставиться как я хочу. chrw(945) преобразуется в значок альфы греческой.
так собственно как имея ячейку все сделать корректно ?
bdfy вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA передать параметр в запрос на выборку и отобразить результат запроса на форме Сергей089 Microsoft Office Access 5 27.12.2010 18:12
Стринг! Henkel Помощь студентам 2 14.12.2010 19:44
Тип Стринг Golovastik Общие вопросы C/C++ 5 02.09.2009 15:36
работа со стринг peq Microsoft Office Excel 9 27.08.2009 14:24
Стринг UnD)eaD)Snake Общие вопросы Delphi 5 08.10.2007 08:29