Q&A

  • 엑셀의 sheet를 추가하고자 합니다...
안녕하세요..

COM 인터페이스를 써서 데이터 값을 엑셀시트로 옮기고자 합니다.

ExcelWorkbook에 1개의 ExcelSheet는 연결하는 방법이 책에 나와있기에 해보았습니다만 저는 한 개의 Sheet가 더 필요하거든요..

해당되는 코딩의 일부입니다..  시트 한 장을 더 추가하여 이를 엑셀로 저장하는 방법을 알고자 합니다.....

코드 일부..

===============================

   ExcelApplication1.Visible[0] := False;
   ExcelApplication1.Caption := '자료';
   ExcelApplication1.Workbooks.Add(xlWBATWorksheet, 0);
   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);
   ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _Worksheet);
   ................
   ................
   ................
   ExcelWorksheet1.SaveAs('c:\LSMS\forSend\Test.xls');
   ................

===================================

이를 실행하면 1개의 엑셀 화일에 1개의 시트가 나옵니다.  1개의 시트가 더 추가되어야 하는데..  오만가지 방법을 다 해 봐도 1개의 시트밖에는 추가되지 않네요..  아마도 오만 1번째 방법이 될 것 같은데..  그 방법을 알려주세요..

OLE를 Variant 변수를 써서 쉽게 작성하는 방법이 아니라 COM 인터페이스를 쓰는 방법입니다...  부탁합니다..
0  COMMENTS
    • 김기성
    • 2004.01.16 23:37
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 석주현
      2004.01.18 09:06
      var   sr        : TSearchRec; begin   ...
    • 조용호
      2004.01.17 02:32
      FileListBox 라는 컴포넌트가 있습니다.. 무조권 리스트 박스에 읽어야 한다면 죄송..^^
    • 강지형
    • 2004.01.16 22:44
    • 2 COMMENTS
    • /
    • 0 LIKES
    • Crazy
      2004.01.17 02:25
      ADO Query 에 Datasource 가 연결되어 있지 않나요??? 연결되어 있다면 ADOQuery1.Delete 해보세요. 데이...
    • ^^!
      2004.01.17 00:30
      DBGrid가 연결되어 있는 쿼리/테이블 컴포넌트를 Close, Open 해주면 됩니다.
    • 강지형
    • 2004.01.16 20:13
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 꿈의대화
      2004.01.16 20:32
      .
    • 강지형
      2004.01.16 22:45
      님의 말씀대로 살펴보고 수정했더니 잘 되네여, ^^ 정말 감사합니다. 복많이 받으세요.,^^
    • 최용일
      2004.01.18 01:54
      안녕하세요. 최용일입니다. 파라매터에 TList형을 넣어야 하는데 Text형의 값이나 변수를 넣었을 때 발...
    • 시나브로
      2004.01.16 19:44
      불가능합니다. Windows CE 는 MS 에서 별도의 eMbeded C++ 4.0 같은 툴을 제공하고있습니다. PDA 나 ...
    • 김종오
    • 2004.01.16 06:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 석주현
      2004.01.18 08:57
      제가 알기론 GetWindowDC 해서 화면 DC를 얻어올 경우 다 쓰고 RealeaseDC를 해줘야 하는 걸로 알고 있...
    • 채창훈
    • 2004.01.16 04:16
    • 0 COMMENTS
    • /
    • 8 LIKES
    • 김동주
    • 2004.01.16 03:01
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 진돌
    • 2004.01.16 02:30
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 김현주
      2004.01.16 03:53
      ex) ONDrawCell  event 에   with TStringGrid(Sender) do   begin ...
    • 진돌
      2004.01.16 04:33
      답변 감사합니다만... 셀의 색상이 아니구.. 선 색깔.... 기본적으로 회색으로 나오는데.. 검정색으로 하...
    • 최용일
      2004.01.16 05:04
      안녕하세요. 최용일입니다. 아래와 같이 해보세요... procedure TForm1.StringGrid1DrawCell(Sender:...
    • 최용일
      2004.01.16 04:22
      안녕하세요. 최용일입니다. 시작메뉴의 델파이 아이콘에서 등록정보를 보시면 시작위치가 있습니다. ...
    • 김영애
    • 2004.01.16 02:00
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 김영애
      2004.01.16 18:17
      두분 도움으로 해결했습니다. 감사드립니다.
    • 정말수
      2004.01.16 17:55
      query난 table을 open한다음 디자인 하시면 됩니다.
    • 손희석
      2004.01.16 08:01
      DBGrid1.Columns[(원하는 사이즈 컬럼인덱스)].Width := 원하는 사이즈; 초기화 할때 동적으로 설정해...
    • 강춘배
    • 2004.01.16 01:48
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 장덕곤
      2004.01.16 08:44
      var RR : Integer;     LS_IP,S_PARAM : String; begin     L...
    • 강춘배
      2004.01.16 21:27
      답변해 주셔서 정말 감사합니다. 꾸벅... 그런데 Ping이 되는지 안되는지를 어떻게 Check해야 되는지 모...
    • 임형호
    • 2004.01.16 01:24
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김대식
    • 2004.01.16 00:49
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2004.01.16 04:26
      안녕하세요. 최용일입니다. 각각의 전문에 그 전문을 구별할 수 있는 식별자(ID)를 두어보세요... 그럼 ...
    • 박희경
    • 2004.01.16 00:26
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 박상기
      2004.01.16 01:25
      XXX.bpl이 없다고 메시지 나오면 XXX.dpk를 먼저 인스톨 하세요
    • 박희경
      2004.01.16 03:29
      답변 감사드립니다. 그런데 필요한 라이브러리 파일만 없다는 에러메시지만 나오지 무슨 bpl 인지는 나오...
    • 최용일
      2004.01.16 04:29
      안녕하세요. 최용일입니다. 퀀텀그리드는 안써봐서 잘 모르지만... Rx라이브러리는 안에 설치에 관한 도...
    • 박희경
      2004.01.16 19:31
    • 뚱~
      2004.01.20 00:59
      프로시저를 하나 만들어서 호출하시면 편할 겁니다. 폼 생성시에, 새 데이터 입력시에 호출하면 되겠죠......
    • 소울해커
      2004.01.16 01:53
      폼 크리에이트 시에 for i := 0 to ComponentCount - 1 do   if Components[i].ClassName = ...
    • 강지형
      2004.01.16 19:07
      좋은 답변 주셔서 정말 감사합니다, 열심히 공부하겠습니다..^^ 좋은하루 되세요
    • 박정순
    • 2004.01.15 21:20
    • 1 COMMENTS
    • /
    • 0 LIKES
    • KDDG_RNStone
      2004.01.16 00:06
      With  frmMain.Edit1  Do   Text := Text + m_signal; ^^; 즐프하세요....