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

돌맹이 2010.10.28 20:21 조회 수 : 5588

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

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

  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 21: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 22:28

왜 난 안되죠???ㅜㅜ

댓글 수정 삭제
MadMax

2010.10.29 18: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.30 00:39

CALL METHOD OF books 'OPEN' = book

요부분과

CALL METHOD OF book 'SAVE'.

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

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

댓글 수정 삭제
고구마

2010.11.09 18:11

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

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
»	<img src=3.gif>엑셀 다운로드 질문 엑셀 열리지 않고 자동으로 되도록. [5]	돌맹이	2010.10.28	5588
5443	<img src=3.gif>dump에러가 뜨는데 이유를 잘 모르겠네요^^; [6]	도라에멍	2010.10.28	1593
5442	<img src=2.gif>간단한 구문 간소화 하는 방법 (간단한 합산) [3]	Johnnyk	2010.10.28	1326
5441	<img src=3.gif>alv의 팝업창시 본 alv에 적용되는 것에 대한 문제입니다. [3]	유정a	2010.10.28	1159
5440	<img src=2.gif>alv검색기능에 관한 질문입니다 ^^ [3]	labap	2010.10.28	2598
5439	<img src=3.gif>버미님 죄송합니다 한가지만 더 질문드릴게요 [2]	유정a	2010.10.28	1280
5438	<img src=3.gif>[re] 버미님 감사한 자료로 실습한 내용 중 궁금한 점이 있어 질문드립니다. [2]	유정a	2010.10.28	993
5437	<img src=2.gif>easy abap 홈페이지에서 검색한후 글 보는거에 관한 질문인데요 [3]	오렌지겅주님	2010.10.28	1063
5436	<img src=2.gif>inner join할때 key 값 아니여도 가능한가요? [2]	소영	2010.10.28	1433
5435	<img src=2.gif>스크린에서 입출력필드 속성 중 대소문자의 기능은 무엇인가요? [4]	기쁨	2010.10.27	1790
5434	<img src=3.gif>MM BAPI로 PO생성시 create와 create1의 차이점이 무엇인가요? [3]	써언	2010.10.27	1853
5433	<img src=2.gif>안녕하세요 아밥시작한지 얼마안되는 실습생입니다.~ [3]	아밥악마	2010.10.27	1389
5432	<img src=3.gif>long text의 저장 및 수정 작업에 관한 질문이에요 [3]	유정a	2010.10.27	2498
5431	[re] <img src=2.gif>long text의 저장 및 수정 작업에 관한 질문이에요	버미!	2010.10.27	1358
5430	<img src=3.gif>안녕하세요^^ type m 값뿌려주기 질문입니다..^^ [5]	labap	2010.10.27	1221
5429	<img src=3.gif>alv 새창의 저장기능 구현에 대해 질문드려요 [2]	유정a	2010.10.27	1028
5428	[re] <img src=1.gif>alv 새창의 저장기능 구현에 대해 질문드려요 [1]	버미!	2010.10.27	1165
5427	<img src=3.gif>대입문에서 텍스트 데이터 뒤에 붙는 ()의 의미 좀 알려주세요. [5]	페르츠	2010.10.26	1327
5426	<img src=1.gif>엑셀 다운로드 시, 필드 타입 지정이 가능한가요?(ws_excel 사용)	sayRaiN♬	2010.10.26	1799
5425	<img src=3.gif>alv 저장 기능 구현 및 저장후 filedname 변경에 관해서 질문드립니다. [4]	유정a	2010.10.26	1708

쓰기 태그

첫 페이지 51 52 53 54 55 56 57 58 59 60 끝 페이지

SAP 한국 커뮤니티

로그인

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

댓글 5

MadMax

돌맹이

MadMax

돌맹이

고구마