エクセルからDelphiへの読み込みをするには？ (ID：2360)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

//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;

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

←解決時は質問者本人がここをチェックしてください。

戻る