Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15802] Re:Re:Re:Re:엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기
개발중과장 [angelkiller] 1878 읽음    2016-10-10 14:57
이거다!!!!!!!
라는 느낌이 바로 드는 샘플입니다.

복받으실 겁니다.
정말로 감사합니다.

-----------------------------------------
내용을 더하였습니다.
성공하였습니다. 정말로 감사합니다.

XLSheet.UsedRange.Copy;

밑으로
    sList.Text := ClipBoard.AsText;

    for i := 0 to sList.count -1 do
    begin

      if I > 5 then ABORT ;

        ShowMessage( sList[i] )  ;

    end;

를 넣어서 잘 나오는 것을 확인 하였습니다.
sList 는 var 쪽에
sList : TStringList ;
위처럼 선언하여 사용하였습니다.

이제 컬럼별 파싱 숙제가 남았군요


타향살이 님이 쓰신 글 :
: uses
:   ComObj;
:
: procedure TForm1.Button1Click(Sender: TObject);
: var
:     XLApplication: Variant;
:     XLSheet : Variant;
:     XLBook  : Variant;
: begin
:     XLApplication := CreateOleObject('Excel.Application');
:     XLApplication.DisplayAlerts := False;
:     XLApplication.Visible := False;
:     XLBook := XLApplication.WorkBooks.Open('e:\test.xlsx');
:     XLSheet := XLBook.Sheets['Sheet1'];
:     XLSheet.UsedRange.Copy;
:     if not VarIsEmpty(XLApplication) then begin
:         XLApplication.DisplayAlerts := False;
:         XLApplication.Quit;
:     end;
: end;
:
: 버튼 클륵 후 메모장에 붙여넣기 해보세요..

+ -

관련 글 리스트
15797 엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기 개발중과장 2715 2016/10/10
15798     Re:엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기 타향살이 1908 2016/10/10
15799         Re:Re:엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기 개발중과장 1999 2016/10/10
15801             Re:Re:Re:엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기 타향살이 1822 2016/10/10
15802                 Re:Re:Re:Re:엑셀 경로와 파일명, 쉬트명 만으로 엑셀내용 클립보드에 복사하기 개발중과장 1878 2016/10/10
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.