<img src=3.gif>엑셀 다운로드 질문 엑셀 열리지 않고 자동으로 되도록.

돌맹이 2010.10.28 11:21 조회 수 : 5374

웹저장 장소에서 엑셀 서식을 다운 받아서

엑셀 파일에 내용을 넣어주는 프로그램 있습니다.

  CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.

  SET PROPERTY OF EXCEL 'VISIBLE' = 1.

  CALL METHOD OF EXCEL 'WORKBOOKS' = BOOKS.

  CALL METHOD OF BOOKS 'OPEN'
    EXPORTING #1 = L_ORIGINALPATH.

이렇게해서 엑셀을 open해서. 처리를 하는데...

SET PROPERTY OF EXCEL 'VISIBLE' = 0. 으로 하여서 하니까 화면에는 보이지 않지만.

문서는 열려져 있더라구요...

화면에서 보이지도 않고 입력된 데이터가 자동으로 저장되도록 할 수 없을까요?

GUI_DOWNLOAD 사용하니까 인터널 테이블이 그냥 다운로드 되더라구요.

일정한 양식이 자동으로 첨부가 되어야 하는데..

우선

CALL METHOD OF BOOKS 'CLOSE'. 하니까 닫아지는거 같긴한데..

저장할꺼? 물어보더라구요

CALL METHOD OF BOOKS 'SAVE'

요건 저장이 안되는데 ㅋㅋㅋ 저장하는 방법만 찾으면 될거 같아요.

이 게시물을

수정 삭제 목록

MadMax

2010.10.28 12:00

open 시 기존의 파일이 있는지 여부에 따라서 save 시 어떻게 할 것인지 확인 한는것 같습니다.

아래 문장 참고 하세요..

WRITE:/ `SET PROPERTY OF books 'Saved'`.
SET PROPERTY OF books 'Saved' = 1.
m_message.

WRITE:/ `CALL METHOD OF book 'SAVE'`.
CALL METHOD OF book 'SAVE'.
m_message.

* IF gv_excel_version = '12.0'.
*    CALL METHOD OF book 'SAVEAS'                            " = 1.
*        EXPORTING
*      #1 = gv_filename   "PC 에 생성된 디렉토리 + 파일명
*      #2 = 56            " format
*      #3 = ''            " password
*      #4 = ''            " WriteResPassword
*      #5 = ''            " ReadOnlyRecommended
*      #6 = ''            " CreateBackup
*      #7 = ''            " AccessMode
*      #8 = 2.            "ConflictResolution
* ELSE.
*    CALL METHOD OF book 'SAVEAS'                            " = 1.
*      EXPORTING
*      #1 = gv_filename   "PC 에 생성된 디렉토리 + 파일명
*      #2 = 1
*      #3 = ''
*      #4 = ''
*      #5 = ''
*      #6 = ''
*      #7 = ''
*      #8 = 2.
* ENDIF.

댓글 수정 삭제
돌맹이

2010.10.28 13:28

왜 난 안되죠???ㅜㅜ

댓글 수정 삭제
MadMax

2010.10.29 09:08

일전에 위와 관련된 테스트 용으로 만든 source 입니다. 주석을 풀어 가면서 테스트 해 보시기 바랍니다.

*&---------------------------------------------------------------------*
*& Report YBIN_EXCEL_CLOSE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ybin_excel_close.

INCLUDE ole2incl.
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.
      write:/ 'OLE Error:', sy-subrc.
endcase.
END-OF-DEFINITION.

DATA : excel      TYPE ole2_object,
       books      TYPE ole2_object,
       book       TYPE ole2_object,
       sheet      TYPE ole2_object,
       cell       TYPE ole2_object,
       cell_str   TYPE ole2_object,
       cell_end   TYPE ole2_object,
       borders    TYPE ole2_object,
       font       TYPE ole2_object.

DATA: gv_filename LIKE rlgrap-filename,
      gv_excel_version(20).

START-OF-SELECTION.

gv_filename = 'C:TEMPEXCEL_TEST.XLS'.

WRITE:/ 'Create Excel'.
CREATE OBJECT excel 'EXCEL.APPLICATION'.
m_message.

SET PROPERTY OF excel 'VISIBLE' = 0.
m_message.

GET PROPERTY OF excel 'VERSION' = gv_excel_version.
m_message.

WRITE:/ 'VERSION :', gv_excel_version.

WRITE:/ 'WorkBooks'.
CALL METHOD OF excel 'WORKBOOKS' = books.
m_message.

* CALL METHOD OF books 'ADD' = book.
* m_message.
* WRITE:/ 'WorkBook'.
* CALL METHOD OF excel 'WORKBOOK' = book.
* m_message.

WRITE:/ `CALL METHOD OF books 'OPEN'`.
CALL METHOD OF books 'OPEN' = book
    EXPORTING
    #1 = gv_filename.
m_message.

CALL METHOD OF excel 'Worksheets' = sheet EXPORTING #1 = 1.
m_message.
CALL METHOD OF sheet 'Activate'.
m_message.

* 엑셀의 CELL을 세팅함.

PERFORM fill_cell USING 5 1 `AAAAAA`.
PERFORM fill_cell USING 5 2 `BBBBBB`.
PERFORM fill_cell USING 5 3 `CCCCCC`.
PERFORM fill_cell USING 5 4 `DDDDDD`.
PERFORM fill_cell USING 5 5 `EEEEEE`.
PERFORM fill_cell USING 5 6 `FFFFFF`.
PERFORM fill_cell USING 5 7 `GGGGGG`.
PERFORM fill_cell USING 5 8 `HHHHHH`.

* CALL METHOD OF sheet 'SaveAs'
*   exporting
*     #1 = gv_filename
*     #2 = 1.
*
* IF gv_excel_version = '12.0'.
*    CALL METHOD OF book 'SAVEAS'                            " = 1.
*        EXPORTING
*      #1 = gv_filename   "PC 에 생성된 디렉토리 + 파일명
*      #2 = 56            " format
*      #3 = ''            " password
*      #4 = ''            " WriteResPassword
*      #5 = ''            " ReadOnlyRecommended
*      #6 = ''            " CreateBackup
*      #7 = ''            " AccessMode
*      #8 = 2.            "ConflictResolution
* ELSE.
*    CALL METHOD OF book 'SAVEAS'                            " = 1.
*      EXPORTING
*      #1 = gv_filename   "PC 에 생성된 디렉토리 + 파일명
*      #2 = 1
*      #3 = ''
*      #4 = ''
*      #5 = ''
*      #6 = ''
*      #7 = ''
*      #8 = 2.
* ENDIF.

* WRITE:/ `SET PROPERTY OF books 'Saved'`.
* SET PROPERTY OF books 'Saved' = 1.
* m_message.

WRITE:/ `CALL METHOD OF book 'SAVE'`.
CALL METHOD OF book 'SAVE'.
m_message.

* CALL METHOD OF book 'SHOW'
*    EXPORTING #1 = sy-uzeit.

* WRITE:/ `CALL METHOD OF sheet 'SAVEAS' `.
* CALL METHOD OF sheet 'SAVEAS'                             " = 1.
*      EXPORTING
*    #1 = gv_filename.   "PC 에 생성된 디렉토리 + 파일명
* m_message.

WRITE:/ `CALL METHOD OF excel 'QUIT'`.
CALL METHOD OF excel 'QUIT'.
m_message.

FREE OBJECT : sheet, book, books, excel .

WRITE:/ 'End of Program !!'.

*&---------------------------------------------------------------------*
*&      Form fill_cell
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ROW      text
*      -->P_COL      text
*      -->P_VAL      text
*----------------------------------------------------------------------*
FORM fill_cell USING   p_row
                        p_col
                        p_val.

CALL METHOD OF excel 'CELLS' = cell
    EXPORTING
    #1 = p_row
    #2 = p_col.

SET PROPERTY OF cell 'VALUE' = p_val.

ENDFORM.                    " FILL_CELL

----------------------------------------------------------------------------------
Extracted by Mass Download version 1.4.6 - E.G.Mellodew. 1998-2010. Sap Release 701

댓글 수정 삭제
돌맹이

2010.10.29 15:39

CALL METHOD OF books 'OPEN' = book

요부분과

CALL METHOD OF book 'SAVE'.

요부분 수정으로 해결했어요 ㅎㅎㅎㅎ

답변은 해결하고 나서 보네요 도움이 많이 되었습니다.

댓글 수정 삭제
고구마

2010.11.09 09:11

덕분에 저도 도움이 되었습니다. 감사합니다.

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
5505	<img src=3.gif>스텐다드 테이블 필드 관련 질문입니다. [3]	초밥	2010.11.01	1323
5504	<img src=2.gif>abap 테이블과 jsp와의 연동 문제에 대해서 물어볼게 있어요 [3]	아밥악마	2010.11.01	1207
5503	<img src=2.gif>버미님 마지막으로 질문 한가지만 드릴게요 [3]	유정a	2010.11.01	944
5502	<img src=2.gif>REPORT 프로그램 출력시 아이콘 나타 나지 않음 [6]	슈퍼아밥퍼가되련다	2010.11.01	1476
5501	<img src=3.gif>selection-screen 에서 if 조건문을 사용하는 방법 [3]	모포	2010.11.01	1331
5500	<img src=3.gif>ALV에서 MM.YYYY 형식의 소팅 문제 [9]	모포	2010.11.01	1451
5499	<img src=2.gif>alv 화면 두개 동시 검색 질문입니다.. [4]	labap	2010.10.30	1403
5498	<img src=3.gif>longtext의 내용을 type-1프로그램에 적용시 재질문드립니다. [4]	유정a	2010.10.30	1131
5497	<img src=3.gif>안녕하세요 버튼 클릭시 버튼name변경에 관해서 질문드립니다. [2]	유정a	2010.10.30	1160
5496	<img src=2.gif>일련번호 관련 질문입니다. (badi / exit 관련) [2]	갈매기	2010.10.30	1634
5495	<img src=2.gif>조회시 여러 조건을 처리하려고 하는데 in 으로 처리 가능한지 질문드립니다. [2]	초보생	2010.10.30	1262
5494	<img src=2.gif>하나의 스크린에 ALV 스크린2개를 위아래로 나누고 그 사이에 입력파라미터와 버튼을 넣을수 있는지요 [3]	초보생	2010.10.30	2220
5493	<img src=3.gif>if 문과 select 문을 같이 쓰는데 관한 질문입니다. [4]	labap	2010.10.30	1142
5492	<img src=2.gif>perform문 실행순서가 궁금해서요. 질문드립니다 [1]	moon	2010.10.30	1173
5491	<img src=2.gif>perform문 실행순서가 궁금해서요. 질문드립니다 [1]	moon	2010.10.30	1067
5490	<img src=2.gif>perform문 실행순서가 궁금해서요. 질문드립니다 [1]	moon	2010.10.30	1197
5489	<img src=2.gif>perform문 실행순서가 궁금해서요. 질문드립니다 [1]	moon	2010.10.30	1134
5488	<img src=3.gif>type-1 레포트에 longtext 적용에 대해 질문드립니다. [8]	유정a	2010.10.29	1013
5487	<img src=2.gif>alv내 금액에서 소수점 안나오게 하는 방법? [6]	맨날초보	2010.10.29	6015
5486	<img src=2.gif>스크롤바를 클릭하면 메세지 창이 뜸니다;; [1]	아밥초보	2010.10.29	1240

쓰기 태그

첫 페이지 47 48 49 50 51 52 53 54 55 56 끝 페이지

SAP 한국 커뮤니티

로그인

<img src=3.gif>엑셀 다운로드 질문 엑셀 열리지 않고 자동으로 되도록.

댓글 5

MadMax

돌맹이

MadMax

돌맹이

고구마