call method h_excel 'Save'.

FeBO-Sh

Всем привет.
У меня такой вопрос: После вызова call method h_excel 'Save', нужно чтобы в адресную строку, а также в название файла передавались значение объявленные ранее (с переменных, параметров). И чтобы это выполнялось без участия конечного пользователя. Т.е. пользователь должен выбрать на селек. экране адрес выгрузки, а остальное сделает программа.
Заранее благодарен.

sy-uname

FeBO-Sh написал:

У меня такой вопрос: После вызова call method h_excel 'Save', нужно чтобы в адресную строку, а также в название файла передавались значение объявленные ранее (с переменных, параметров). И чтобы это выполнялось без участия конечного пользователя. Т.е. пользователь должен выбрать на селек. экране адрес выгрузки, а остальное сделает программа.

А где и в чём вопрос?

FeBO-Sh

)) А вопрос такой: как это можно реализовать?

sy-uname

FeBO-Sh написал:

)) А вопрос такой: как это можно реализовать?

Можно написать самому, а можно пригласить знающих людей за деньги.
Вы задайте более конкретный, более детальный, более частный вопрос, с большими техническими подробностями - тогда ещё что то может и можно будет подсказать, посоветовать. А так Ваш "вопрос" выглядит как "напишите за меня программу. ТЗ см. выше". Т.к. кроме того, то у Вас используется конструкция "call method h_excel 'Save'" больше ничего не понятно.

FeBO-Sh

Сорри за неграмотность, я пока что не до конца научился грамотно формулировать вопрос с технической точки зрения, поскольку
являюсь новичком в АБАП-е.
По ТЗ мне нужно выгружать не только табличную часть, но и итоговые данные, и т.п., т.е. шаблон сложный. И этот способ я
посчитал более оптимальным. Вот часть кода:

Code:

  CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
  PERFORM sy_subrc.
  SET PROPERTY OF h_excel  'Visible' = 0.
  PERFORM sy_subrc.
  CALL METHOD OF h_excel 'Workbooks' = h_mapl.
  PERFORM sy_subrc.
  CALL METHOD OF h_mapl 'Add' = h_map.
  PERFORM sy_subrc.

  <тут указываю в какие ячейки выгружать разные переменные >

  CALL METHOD OF h_excel 'Save'.
  PERFORM sy_subrc.

  ???

  CALL METHOD OF h_excel 'Quit'.
  PERFORM sy_subrc.  

После CALL METHOD OF h_excel 'Save' мне нужно указать адрес и название ф. с селективного.
Может кто поможет добить код или подскажет в какую сторону копать... А-то я втупике

Пономарев Артем: пользуйтесь тэгами для оформления кода, пожалуйста.

Parazit

FeBO-Sh написал:

Может кто поможет добить код или подскажет в какую сторону копать...

Копать в сторону SaveAs...

FeBO-Sh

Копал, но это не решает проблемы, я упираюсь в ту же проблему. Нашел примерчик на подобие того, что мне нужно, только он открывает файлик (p_adr место файлика):

Code:

    
    EXPORTING
*           PERCENTAGE = 0
           text       = text-001
       EXCEPTIONS
            OTHERS     = 1.    
    CREATE OBJECT   h_excel 'Excel.Application'.
    PERFORM sy_subrc.
    SET PROPERTY OF h_excel 'Visible' = 1.
    PERFORM sy_subrc.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           text       = text-002
       EXCEPTIONS
            OTHERS     = 1.
    GET PROPERTY OF h_excel 'Workbooks' = h_mapl.
    CALL METHOD  OF h_mapl  'Open' = adr
      EXPORTING #1 = p_adr.

Жду вариантов...

vahtang

Если я вас правильно понял:

Code:

    DATA:
      filename TYPE c LENGTH 255.

      CALL METHOD OF h_map 'SaveAs'
        EXPORTING
        #1 = filename.

В таких случаях советую записывать в Excel макрос из необходимых вам действий - меню "Сервис\Макрос\Начать запись", после чего переносить полученное в свою программу на ABAP. Ну и RTFM

FeBO-Sh

Спасибо большущее, помогло. И наверно последний вопрос, как сделать подтверждение замены (если файл с таким именем существует) ?
Постарался поймать его в VBA в Excel-е, в редакторе ничего не показывает...

raaleksandr

Можно сделать такую проверку на ABAP, а затем спросить о замене с помощью например ФМ POPUP_TO_CONFIRM

Пример такой проверки:

Code:

  lh_file_exists = cl_gui_frontend_services=>file_exist( file = 'C:\_toarchive\book1.xls' ).

  IF lh_file_exists = 'X'.
    MESSAGE 'File exists' TYPE 'I'.
  ELSE.
    MESSAGE 'File doesn''t exists' TYPE 'I'.
  ENDIF.

FeBO-Sh

К сожалению так я могу только узнать был ли создан файл с таким именем, а с фм POPUP_TO_CONFIRM я могу все лишь подтвердить замену, функцию замены он не выполняет. Может есть еще какие-нибудь варианты Сохранения с заменой?

Code:

   

 lh_file_exists = cl_gui_frontend_services=>file_exist( file = file ). 

    IF lh_file_exists = 'X'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
   titlebar                    = 'Подтвердить сохранение в виде'
   text_question               = 'Файл с таким именем существует. Заменить?'
   text_button_1               = 'Да'                       "(001)
   text_button_2               = 'Нет'                      "(002)
   default_button              = '1'
   display_cancel_button       = 'X'
 IMPORTING
   answer                      = answer
 TABLES
   parameter                   = parameter
                .
      IF sy-subrc <> 0.
      ENDIF.

      IF answer = '1'.
        PERFORM download_to_excel.   " Здесь вызывается метод сохранения с заменой
      ENDIF.
    ENDIF.

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

call method h_excel 'Save'.

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