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

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

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

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

  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

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

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
6404	Background (Batch Job) 에 설정한 Selection Screen의 Variant 는 어디서 볼수 있을까요? [1]	김윤승	2007.07.20	5613
6403	<img src=3.gif>Runtime Error->OBJECTS_OBJREF_NOT_ASSIGNED [2]	써언	2011.02.09	5550
6402	<img src=3.gif>엑셀 매크로를 이용하여 양식을 출력하는 방법 좀 알려주세요..ㅜㅜ [3]	싼타	2010.08.18	5544
6401	<img src=3.gif>alv 테이블 필드 숨기기에 대해 질문드립니다. [4]	유정a	2010.10.20	5535
6400	<img src=3.gif>sap에서 제공하는 스텐더드 툴바 덤프... [6]	SAP 사랑	2011.03.23	5510
6399	[요청]BAPI BAPI_GOODSMVT_CREATE 펑션의 기본적인 사용법 [1]	댕댕	2008.05.04	5485
6398	[요청]BAPI_SALESORDER_CREATEFROMDAT2 에서 가격조건(세금부분, 정가) 부분의 값을 가져오지 못합니다. [2]	효방 ^-^	2008.12.19	5464
6397	singleton concept에 대해.. [1]	kyeinho	2007.07.03	5460
6396	<img src=2.gif border=0>collect 구문에 관한 고수님들의 의견을 듣고 싶습니다. [7]	james80	2009.09.16	5445
6395	ALV 프로그램에서 어플리케이션 툴바에 행추가 버튼을 추가하고자 합니다. [2]	초보생	2007.07.24	5404
6394	[ERROR] READ_REPORT_LINE_TOO_LONG 해결 방법좀 알려주세요. [7]	D.Y.Kim	2007.07.24	5399
6393	[요청][초급] 테이터 중에 내가 원하는 문자를 찾기 !!!!!! [6]	사상화	2008.08.28	5392
6392	[요청]insert 로 db테이블에 데이터를 저장할때.... [4]	bizarre	2008.05.19	5374
»	<img src=3.gif>엑셀 다운로드 질문 엑셀 열리지 않고 자동으로 되도록. [5]	돌맹이	2010.10.28	5373
6390	<b>[완료]</b><b>[완료]</b>[BAPI_TRANSACTION_COMMIT] commit work 와 commit and wait 의 차이점 문의 [5]	SUGI	2008.01.28	5363
6389	<img src=3.gif>runtime error문제입니다. 무슨 말인지 잘 모르겠어요. 좀 알려주실수있을까요 [2]	쭈니	2010.09.15	5345
6388	<b>[완료]</b><b>[완료]</b>질문이 있습니다.	로미오	2006.12.29	5315
6387	<img src=3.gif>BDC 프로그램 CALL Transaction 옵션 중에서 RACOMMIT 옵션이 하는 역할이 무엇인가요? [8]	카루이안	2009.10.07	5293
6386	[요청]For all entries in 구문에서 GROUP BY ~ SUM 구문이 사용이 안되는거 같은데.. 좋은 방법없을까요? [4]	효방 ^-^	2008.10.15	5285
6385	<img src=3.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [3]	하오	2010.01.08	5284

쓰기 태그

첫 페이지 2 3 4 5 6 7 8 9 10 11 끝 페이지

SAP 한국 커뮤니티

로그인

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

댓글 5

MadMax

돌맹이

MadMax

돌맹이

고구마