SAPфорум.RU • Просмотр темы

r00xus

Здравствуйте коллеги.

1. Как правильно вернуть значение при выполнении метода MS Word. К примеру я хочу узнать успешно ли выполнился поиск строки Find.Execute. Код будет такой:

Code:

DATA lv_res TYPE ole2_object.
CALL METHOD OF ls_find 'Execute' = lv_res.

но в lv_res всегда пусто при любом результате поиска значения! Как прочитать возвращаемое значение?

2. Как достучаться до уже существующего элемента коллекции? Например ActiveDocument.Tables.Item(1) - первая таблица в документе.

r00xus

с пунктом 2 разобрался:

Code:

GET PROPERTY OF
      ls_tables
      'Item'   = ls_table
    EXPORTING
      #1        = '1'.

Кодер

в п1 какой тип переменной у lv_res? Вполне может быть, что просто неверная типизация используется

r00xus

Тип я указал:

Code:

DATA lv_res TYPE ole2_object.

AFH

Попробуйте type i.

Execute возвращает булево значение.

r00xus

не помогло. текст найден или не найден, а lv_res = 0...

D.Krokhun

Я бы попробовал сделать flush после вызова метода.

r00xus

Цитата:

Я бы попробовал сделать flush после вызова метода.

Бинго! спасибо за помощь!

r00xus

Еще один вопросик. Пытаюсь заполнить ячейку из только что выгруженного шаблона. Все работает до момента заполнения значения. Вроде по примерам и в самом VBA свойство Value у ячейки присутствует. Но увы ничего не заполняется. В чем же блин дело?!

Code:

  CREATE OBJECT ls_excel 'EXCEL.APPLICATION'.

  SET PROPERTY OF ls_excel 'Visible' = '1'.

  GET PROPERTY OF ls_excel 'Workbooks' = ls_workbooks.

  CALL METHOD OF
      ls_workbooks
      'Open'

    EXPORTING
      #1           = iv_fname.

  CALL METHOD OF
      ls_excel
      'Worksheets' = ls_worksheet
    EXPORTING
      #1           = 1.

  CALL METHOD OF
      ls_worksheet
      'Activate'.

  CALL METHOD OF
      ls_excel
      'Cells'  = ls_cell
    EXPORTING
      #1       = '1'
      #2       = '1'.

  SET PROPERTY OF ls_cell 'Value' = 'Значение'.

D.Krokhun

Я обращался к FormulaR1C1.

Код из записанного макроса:

Code:

    Range("E10").Select
    ActiveCell.FormulaR1C1 = "SAP"

r00xus

Я не совсем понимаю в чем прикол, но если написать так:

Code:

 CALL METHOD OF
      ls_excel
      'Cells'  = ls_cell
    EXPORTING
      #1       = 1
      #2       = 1.

То есть передать координаты как целые числа, то все работает.
О загадочный Excel :shock:

Кодер

2 r00xus: Это не столько проблема экселя, сколько сапа, и собственно Вас, как автора программы. Посмотрите хелп на Cells в msdn, там сказано, что это индексы, т.е. числа(хотя формально в спецификации сказано что это variant, чтобы обеспечить возможность 2-ух способов использования свойства). Сап в реализации оле очень вольно обходится с вариантами.

Правила форума

OLE

Кто сейчас на конференции