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
[1054] >질문< [델파이]엑셀의 타입라이브러리 값을 어떻게 읽나요?
idoit079 [ ] 2678 읽음    1998-02-03 04:37
안녕하세요.
저는 델파이를 배운지 한달도 안되는 초보 입니다.
겁없이 이것 저것 해보는데 잘 안되는게 많군요.

책을 보면서 해보는데 저 혼자서는 도저히 알수 가 없어서 그러는데
좀 도와 주세요.

델파이에서 엑셀의 타입 라이브러리 값을 읽을려고 했는데요

코딩은

unit exexcel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ComObj;

type
  TFrmExcel = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmExcel: TFrmExcel;

implementation

{$R *.DFM}

procedure TFrmExcel.Button1Click(Sender: TObject);
const
     {Excel Sheet Type}
     xlChart=-4109;
     xldialogsheet=-4116;
     xlExcel4IntlMicroSheet=4;
     xlExcel4MacroSheet=3;
     xlWorkSheet=-4167;

     {Excel WBA Template}
     xlWBATChart=-4109;
     xlWBATExcel4IntlMicroSheet=4;
     xlWBATExcel4MacroSheet=3;
     xlWBATWorkSheet=-4167;

     var
     i,k:Integer;
     Sheet,XL:Variant;
begin
     XL:=CreateOLEObject('Excel.Application');
     XL.Visible:=True;
     XL.Workbooks.Add;
     XL.Workbooks.Add(xlWBATChart);
     XL.Workbooks.Add(xlWBATWorkSheet);
     XL.Workbooks[2].Sheets.Add(,,1,xlChart);
     XL.Workbooks[3].Sheets.Add(,,1,xlWorksheet);
     for i:=1 to XL.Workbooks.Count do
     begin
          ListBox1.Items.Add('워크북이름:'+XL.workbooks[i].Name);
          for k:=1 to XL.Workbooks[i].Sheets.CountClipboardFormats do
          ListBox1.Items.Add('시트이름 :'+XL.Wokrbooks[i].Sheets[k].Name);
          end;
end;


end.

이렇게 했구요.

Project , Import Type Library에서 Excel8.olb파일을 선택하면 경고는 많이 나와도 에러는 없다고 하는데
저는

program prjexcel;

uses
  Forms,
  exexcel in 'exexcel.pas' {FrmExcel};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TFrmExcel, FrmExcel);
  Application.Run;
end.


에서 Object or class Type required 라는 에러가 세개가 나네요.
제발 도와 주세요.


+ -

관련 글 리스트
1054 >질문< [델파이]엑셀의 타입라이브러리 값을 어떻게 읽나요? idoit079 2678 1998/02/03
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.