이거다!!!!!!!
라는 느낌이 바로 드는 샘플입니다.
복받으실 겁니다.
정말로 감사합니다.
-----------------------------------------
내용을 더하였습니다.
성공하였습니다. 정말로 감사합니다.
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;
:
: 버튼 클륵 후 메모장에 붙여넣기 해보세요..
|