エクセルからDelphiへの読み込みをするには？

ヒロ 2002-12-17 07:08:30 No: 2358

エクセルからデルファイにデータを読み込ませるにはどうすればよいのですか？かなり切羽つまってきてるので具体的なご指導ご鞭撻のほどよろしくお願いします。

TS 2002-12-17 17:17:01 No: 2359

物体eXeLと言うホームページを見られたらどうでしょうか
html\www.geocities.co.jp\SiliconValley-Oakland\6342\index.html

Lupin3rd 2002-12-17 19:29:27 No: 2360

//Excelの起動
procedure TForm1.Button1Click(Sender: TObject);
begin
   try
      Excel := CreateOleObject('Excel.Application');
      //Excel.Assistant.FileName := 'Dolphin.act';
      //Excel.Assistant.Visible := True;
      //Excel.Assistant.Help;
   except
      on EOleSysError do begin
       //起動失敗
         ShowMessage('Excelが起動できません');
         Excel := Null;
         Exit;
      end;
   end;
   Excel.Visible:= True;
end;

//新規作成
procedure TForm1.Button2Click(Sender: TObject);
begin
   WorkBook := Excel.WorkBooks.Add;
   WorkSheet := WorkBook.WorkSheets[1];
   WorkSheet.Activate;
end;

//Excelの終了
procedure TForm1.Button3Click(Sender: TObject);
begin
   try
      Excel.DisplayAlerts := False;//メッセージダイアログを表示しない
      Excel.Quit;
      Excel := unAssigned;
   except
      //
   end;
end;

//自動書き込み
procedure TForm1.Button4Click(Sender: TObject);
var
   Col,Row:integer;
   i:integer;
begin
   i := 1;
   for Row := 1 to 100 do begin
      for Col := 1 to 10 do begin
         Excel.ActiveSheet.Cells[Row,Col].Value := i;
         Inc(i);
      end;
   end;
end;

こんなものでいかがでしょう。あとはこのソースを参考にしていろいろできると思います。