ФМ для выгрузки отчетов в Excel (SMW0 + Visual Basic)

zIk

Silence написал(а):

zIk написал:

вопрос решился?

Не, я ночью спала

Сейчас начну тестить дальше
Вы что-то писали про пространство имен, может в этом дело?

не так официально - "ты".
про имена писал не я - я процитировал.
жду решения

Silence

В DOWNLOAD_WEB_OBJECT
после CALL FUNCTION 'WWWDATA_IMPORT'
SY-SUBRC<>0
после этого возврат в ZSMW0_OPEN_XLS
check wa_rc = 0. - после этого сразу идет на endfunction и вылетает в дамп

Local variables must not be used to receive returned parameters in calls
to controls or automation servers.
For performance reasons, calls to frontend components such as controls are bundled in a queue, and not sent to the frontend until a flush occurrs.
The automation requests are then processed asynchronously to the ABAP code.
If you use local variables for returned values from controls (for example, the ID of the selected node in a tree), it is possible that the local variable no longer exists when the flush occurs, and consequently, the value cannot be returned.
The system must assume that the program can no longer function properly without these values and terminates the program.
Check whether your application uses local variables to receive values from control or automation calls.
The variable used here pointed to sector "stack area", data object
"\FUNCTION=ZSMW0_OPEN_XLS\DATA=WA_SAPWORKDIR".

zIk

обновил топик

Дима

Всем доброго времени суток,
уважаемый, zIk, спасибо за этот полезный ФМ
итак, для 4.6С (мой уровень ABAP-обновления 54):

метод cl_gui_frontend_services=>get_sapgui_workdir
нужно заменить на:

Code:

CALL METHOD cl_gui_frontend_services=>get_sapgui_directory
  CHANGING
    sapgui_directory = wa_sapworkdir
  EXCEPTIONS
    CNTL_ERROR       = 1
    others           = 2
        .

после секции удаление прошлых выгрузок отчета добавить строку:

Code:

CALL METHOD cl_gui_cfw=>flush.

кстати, Silence, это поможет решить вашу проблему.

Ну и напоследок несколько советов по сохранению шаблона в Excel2007:
1) шаблон нужно сохранять с типом xlsm (т.е. с поддержкой макросов)
2) убедитесь, что не установлена защита книги
3) сам шаблон в SMW0 нужно сохранять в двоичном формате

OlegDm

Parazit написал:

zIk написал:

El Mario написал:

А в чем собственно отличие, от того что предложил нам Parazit ?

здесь SAPу - ABAP, Excelю - VB.
Здесь вы делаете только то что надо вам, Parazit, я подозреваю, делает все что может понадобится для тех, кто хочет работать только с ABAP.

Я постарался сделать так, чтобы не нужно было особо знать ни то ни другое.

Я б тебе памятник поставил :roll:

zIk

Дима, спасибо.
Обновил топик

Shkalic

Спасибо zIk за ФМ! В Exel выгрузил удачно, вот только хотелось пример какой-нибудь выгрузки в него табличной части и используемой техники. Второй момент, возможно ли расширить на Ворд? Достаточно было бы Вашим ФМ выгружать на локальную машину шаблон Ворда и дальше передать управление макросу VBA, сформированному на ABAP (аналогично как и в Exel).

zIk

2 Shkalic
Вырезка - "рисование" для каждого проекта своего столбца (шапка, границы, цветные ячейки):

Code:

  loop at it_pspnr into wa_pspnr.
    loop at it_proj_prps into wa_proj_prps where pspnr = wa_pspnr.
      wa_vba = 'Application.Goto Reference:="sh_top"'. append wa_vba to it_vba.
      wa_vba = 'Selection.Copy'. append wa_vba to it_vba.
      wa_vba = 'Cells(wa_nrow, wa_ncol).Select'. append wa_vba to it_vba.
      wa_vba = 'ActiveSheet.Paste'. append wa_vba to it_vba.


      concatenate wa_proj_prps-posid wa_proj_prps-post1 into wa_str separated by space.
      replace all occurrences of '"' in wa_str with '""'.
      concatenate 'Cells(wa_nrow, wa_ncol) = "Проект:' wa_str '"'
        into wa_vba separated by space. append wa_vba to it_vba.
      wa_str = wa_proj_prps-dogname.
      replace all occurrences of '"' in wa_str with '""'.
      concatenate 'Cells(wa_nrow + 1, wa_ncol) = "Договор:' wa_str '"'
        into wa_vba separated by space. append wa_vba to it_vba.

      wa_vba = 'wa_ncol = wa_ncol + 6'. append wa_vba to it_vba.
    endloop.
  endloop.

Копирование всей строки № wa_nrow_t и вставка в позицию ячейки с именем "cur". Строка вставится над ячейкой "cur".

Code:

        wa_vba = 'Cells(wa_nrow_t, wa_ncol_t).EntireRow.Select'. append wa_vba to it_vba.
        wa_vba = 'Selection.Copy'. append wa_vba to it_vba.
        wa_vba = 'Range("cur").EntireRow.Insert'. append wa_vba to it_vba.

Про Word
у меня задачи с Word-ом не было.
Технически наверняка все так же - только ни Workbooks, ни Sheets, ни Cells, а что-то другое.

SvtK

Огромное спасибо Вам, zIk, за выложенный метод.
Перепробовала уже все варианты выгрузки, для большого объема данных - это самый эффективный метод выгрузки.

Parazit

SvtK написал(а):

Огромное спасибо Вам, zIk, за выложенный метод.
Перепробовала уже все варианты выгрузки, для большого объема данных - это самый эффективный метод выгрузки.

Можно поподробней о задаче, что за отчет, какой объем данных, время формирования и т.д.?

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

ФМ для выгрузки отчетов в Excel (SMW0 + Visual Basic)

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