ZWWW - ФМ для выгрузки данных в WORD, EXCEL

east

Добрый день!
Ошибка при выгрузке RAISE_EXCEPTION

Code:

  SELECT SINGLE * FROM  WWWPARAMS
         WHERE  RELID       = RELID
         AND    OBJID       = OBJID
         AND    NAME        = NAME.

  IF SY-SUBRC NE 0.
 >>>    RAISE ENTRY_NOT_EXISTS.
  ENDIF.
  VALUE = WWWPARAMS-VALUE.
ENDFUNCTION.

Подскажите в чем проблема? Видел, что этот вопрос задавался дважды, но ответа на него так и не было дано.

Нужно отметить, что при малом количестве записей(до 15) такой ошибки нет, все замечательно выгружается.

Parazit

east написал:

Ошибка при выгрузке RAISE_EXCEPTION
Подскажите в чем проблема? Видел, что этот вопрос задавался дважды, но ответа на него так и не было дано.

Нужно отметить, что при малом количестве записей(до 15) такой ошибки нет, все замечательно выгружается.

Макросы ZWWW_MACROS.xls и ZWWW_MACROS_WORD.doc загружены в smw0 ?

east

Оч. полезный ФМ. Все работает, большое спасибо!

n.Izaak

Else
If .Col(0) <> "*" Then
'At new VAR_NAMElTextQualifierNone
Set r = Application.Range(.Col(0))
ErrNumber = Err.Number
RowsCount = r.Rows.Count

If ErrNumber = 0 And .Col(5) <> 0 Then
r.Copy
Set Ofs = r.Offset(RowsCount)
Ofs.Resize(.Col(5) * RowsCount).Insert
End If
В макросе ErrNumber=1004, а вставка в эксель происходит при ErrNumber = 0. Что делать?

Parazit

n.Izaak написал(а):

В макросе ErrNumber=1004, а вставка в эксель происходит при ErrNumber = 0. Что делать?

А что содержится в Col(0) ?

n.Izaak

Parazit написал:

А что содержится в Col(0) ?

Parazit

Давайте лучше в ICQ или почту

n.Izaak

Вот что там видно при наведении мышкой
Application.Range(.Col(0))=<Method ‘Range’ of object’_Application’ failed>
В отладчике <Expression not defined in context>

n.Izaak

Спасибо Parazit!!! Все работает!!!

Но вот еще не подскажете как запустить макросы в шаблоне с параметрами. В зависимости от этих параметров, которые я хочу передавать из abap, буду скрывать или отображать определенные столбцы.

sibrin

n.Izaak написал(а):

Но вот еще не подскажете как запустить макросы в шаблоне с параметрами. В зависимости от этих параметров, которые я хочу передавать из abap, буду скрывать или отображать определенные столбцы.

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

Если таблица it_values сортируется, то нужно ещё подбирать имена макросов так, чтобы они исполнялись после того, как данные запишутся в ячейки. Я для простоты обычно отключаю сортировку.

n.Izaak

Спасибо!

Parazit

sibrin написал:

Если таблица it_values сортируется, то нужно ещё подбирать имена макросов так, чтобы они исполнялись после того, как данные запишутся в ячейки. Я для простоты обычно отключаю сортировку.

Выгрузка данных производится в алфавитном порядке имен переменных, а не имен макросов. Отключение сортировки может привести к нарушению логики работы модуля.

Parazit

n.Izaak написал(а):

Спасибо Parazit!!! Все работает!!!

Но вот еще не подскажете как запустить макросы в шаблоне с параметрами. В зависимости от этих параметров, которые я хочу передавать из abap, буду скрывать или отображать определенные столбцы.

Для сокрытия или отображения я бы посоветовал написать такой макрос, которому нужен только RANGE скрываемой области. И параметры не нужны будут.

east

Добрый день!

Может кто сталкивался: возникла проблемка- после выгрузки невозможно было открыть ни один excel документ.

Добавил:

Code:

FORM OpenForm
...
define m_message.
  case sy-subrc.
    when 0.
    when 1.
    message id sy-msgid type sy-msgty number sy-msgno
    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    when others. raise upload_ole.
  endcase.
end-of-definition.
...
  If not PRINTDIALOG is initial.
    Call method of App 'QUIT'. m_message.
    free object app. m_message.
  EndIf.
...
ENDFORM. "OpenForm

помогло

Parazit

east написал:

Может кто сталкивался: возникла проблемка- после выгрузки невозможно было открыть ни один excel документ.

Скорей всего в виндозе оставались болтаться сессии ёкселя. Такое бывает со старыми версиями офиса, недавно столкнулся на одном предприятии. Помогло free для всех OLE-объектов. В последней версии у меня есть дополнения, скоро выложу.

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

ZWWW - ФМ для выгрузки данных в WORD, EXCEL

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