안녕하세요.
저는 델파이를 배운지 한달도 안되는 초보 입니다.
겁없이 이것 저것 해보는데 잘 안되는게 많군요.
책을 보면서 해보는데 저 혼자서는 도저히 알수 가 없어서 그러는데
좀 도와 주세요.
델파이에서 엑셀의 타입 라이브러리 값을 읽을려고 했는데요
코딩은
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 라는 에러가 세개가 나네요.
제발 도와 주세요.
|