Надпись Excel

[Ardak]

Плиз хелп!
Есть шаблон в Excel в котором имеется надпись, как изменить значение надпись из Navision?

[randrews]

Цитата:

Сообщение от Ardak

Плиз хелп!
Есть шаблон в Excel в котором имеется надпись, как изменить значение надпись из Navision?

Через Automation Microsoft Excel Object Library открыть файл и черезе Range присвоить новое значение.

[Ardak]

а можно пример? присвоить значение ячейке, без проблем, а вот надписи не получается.

[randrews]

Например, написать макрос и вызвать его...

   Dim OLEOb As OLEObject
   Set OLEOb = ActiveSheet.OLEObjects(1)
   OLEOb.Object = "new value"

То же самое наверняка можно сделать через 'Microsoft Excel Object Library'.OLEObject

[Ardak]

получился вот такой код:

Shapes.Item('Имя надписи').TextFrame.Characters.Text:= 'Ваш текст';

[randrews]

Цитата:

Сообщение от Ardak

получился вот такой код:

Shapes.Item('Имя надписи').TextFrame.Characters.Text:= 'Ваш текст';

Ваш метод красивее

[artkashin]

Вообще, Советую следующую фишку: Включаешь запись макроса, Выполняешь ручками требуемое действие (например переименовываешь надпись) останавливаешь запись макроса - просматриваешь код, который автоматически сгенерируется в формате VB . Практически в таком же виде записываешь при обращении к ОЛЕ объекту уже из кода Нава. За редким исключением, все проходит благополучно.