Сохранение и закрытие документа EXCEL

AlekseyDIT

Будте любезны уважаемые специалисты подскажите пожалуйста как
сохранить в файл и завершить работу EXCEL после заполнения его некоторыми данными.

Code:

DATA: APPLICATION TYPE OLE2_OBJECT,
      WORKBOOK    TYPE OLE2_OBJECT,
      SHEET       TYPE OLE2_OBJECT,
      CELLS       TYPE OLE2_OBJECT.
* Creating an object
CREATE OBJECT APPLICATION 'excel.application'.
IF SY-SUBRC NE 0.
   WRITE: / 'Error when opening excel.application', SY-MSGLI.
ENDIF.
* Setting properties
SET PROPERTY OF APPLICATION 'Visible' = 1.
* Calling methods
CALL METHOD OF APPLICATION 'Workbooks' = WORKBOOK.
PERFORM ERRORS.

CALL METHOD OF WORKBOOK 'Add'.
PERFORM ERRORS.
CALL METHOD OF APPLICATION 'Worksheets' = SHEET EXPORTING #1 = 1.
PERFORM ERRORS.
CALL METHOD OF SHEET 'Activate'.
PERFORM ERRORS.
CALL METHOD OF SHEET 'Cells' = CELLS
  EXPORTING
  #1 = 2
  #2 = 2.
  SET PROPERTY OF CELLS 'Value' = и т.д. *Заполняю таблицу

вот так выглядит вызов, а вот как это всё хозяйство сохранить в файл и закрыть не знаю (ну закрыть знаю CALL METHOD OF WORKBOOK 'CLOSE'.) но "Мне необходимо без вопроса сохранить файл" подскажите, будте любезны
:wink:

Speelky

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

Будте любезны уважаемые специалисты подскажите пожалуйста как
сохранить в файл и завершить работу EXCEL после заполнения его некоторыми данными.

Code:

DATA: APPLICATION TYPE OLE2_OBJECT,
      WORKBOOK    TYPE OLE2_OBJECT,
      SHEET       TYPE OLE2_OBJECT,
      CELLS       TYPE OLE2_OBJECT.
* Creating an object
CREATE OBJECT APPLICATION 'excel.application'.
IF SY-SUBRC NE 0.
   WRITE: / 'Error when opening excel.application', SY-MSGLI.
ENDIF.
* Setting properties
SET PROPERTY OF APPLICATION 'Visible' = 1.
* Calling methods
CALL METHOD OF APPLICATION 'Workbooks' = WORKBOOK.
PERFORM ERRORS.

CALL METHOD OF WORKBOOK 'Add'.
PERFORM ERRORS.
CALL METHOD OF APPLICATION 'Worksheets' = SHEET EXPORTING #1 = 1.
PERFORM ERRORS.
CALL METHOD OF SHEET 'Activate'.
PERFORM ERRORS.
CALL METHOD OF SHEET 'Cells' = CELLS
  EXPORTING
  #1 = 2
  #2 = 2.
  SET PROPERTY OF CELLS 'Value' = и т.д. *Заполняю таблицу

вот так выглядит вызов, а вот как это всё хозяйство сохранить в файл и закрыть не знаю (ну закрыть знаю CALL METHOD OF WORKBOOK 'CLOSE'.) но "Мне необходимо без вопроса сохранить файл" подскажите, будте любезны
:wink:

Workbook.SaveAs

Подробности и параметры ищи в справке VBA

AlekseyDIT

Извините но не работает :?:

CALL METHOD OF WORKBOOK 'SaveAs'
EXPORTING
#1 = 'C:\1.XLS'.
CALL METHOD OF WORKBOOK 'CLOSE'.
CALL METHOD OF APPLICATION 'QUIT'.

Speelky

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

Извините но не работает :?:

CALL METHOD OF WORKBOOK 'SaveAs'
EXPORTING
#1 = 'C:\1.XLS'.
CALL METHOD OF WORKBOOK 'CLOSE'.
CALL METHOD OF APPLICATION 'QUIT'.

Стоило бы поконкретнее указать, что именно не работает. Не сохраняет? Не закрывает?

AlekseyDIT

Большое спасибо за Ваше внимание.
После нажатия F8
-Открывается EXCEL
-Кника с записанными в неё данными
-Ничего не происходит
т.е. книга не сохранена.
Может там порядок вызова иной или необходимо в
CALL METHOD OF WORKBOOK 'SaveAs' переддать некие параметры???

MilAndAl1

И не будет работать. По приведенному коду видно, что
WORKBOOK - это на самом деле коллекция WorkBooks, у которой нет
метода SaveAs.

Чтобы сохранить книгу надо после добавления книги в строке
CALL METHOD OF WORKBOOK 'Add'.
присвоить полученную книгу новому объекту, что-то типа
GET PROPERTY OF WORKBOOK 'Item' = MYBOOK EXPORTING #1 = 2.
ну а потом уже можно будет сохранять
CALL METHOD OF MYBOOK 'SaveAs'.....

AlekseyDIT

Спасибо за участие. Причина нашлась, и старшие специалисты направили меня в нужное русло.
:idea:

Code:

* Set warninngs off (Шаманские строки)
  SET PROPERTY OF APPLICATION 'DisplayAlerts' = 'False'.
  GET PROPERTY OF APPLICATION 'ActiveWorkBook' = WORKBOOK.

  CALL METHOD OF WORKBOOK 'SAVEAS'
       EXPORTING #1 = 'C:\1.XLS'.

*  (Шаманские строки)
  SET PROPERTY OF APPLICATION 'DisplayAlerts' = 'True'.
  SET PROPERTY OF APPLICATION 'Visible' = 1.
* Close Excel
  CALL METHOD OF WORKBOOK 'CLOSE'.
  CALL METHOD OF APPLICATION 'QUIT'.

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

Сохранение и закрытие документа EXCEL

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