Excelを読み込ませるには

kuni 2004-10-22 00:11:50 No: 11460

Delphi personal6でExcelExcelを読み込む
ソフトを作成したいと考えています。
プロフェッショナルバージョンではコンポーネントが
デフォルトであるようなのですが

personalバージョンでは無理でしょうか？

宜しくお願いします。

流 2004-10-22 02:43:32 No: 11461

http://lupin.client.jp/samplesource/index.htmlのExcel操作クラスを使うと一応出来ると思いますよ。

HOta 2004-10-22 17:05:32 No: 11462

OLEで読み込めば使えませんか？
USESにComObjを追加すれば使えます。

kuni 2004-10-29 03:42:23 No: 11463

流様
http://lupin.client.jp/samplesource/index.html
からクラスをダウンロードして、コンポーネントのインストールを
しましたが、実際にエクセルを読み込むための情報が一切ありません。
どのようにすれば、いいのでしょうか？
よろしくお願いします。

HOta 2004-10-29 19:23:37 No: 11464

kuniさん、こんにちは

例です。ComObjをUsesします。
var
   Excel: Variant;
   WorkBook: Variant;
   WorkSheet: Variant;
begin
  try  //Excelが既に起動している
    Excel := GetActiveOleObject('Excel.Application');
  except
    try       //Excelが未起動
      Excel := CreateOleObject('Excel.Application');
    except
      Exit;
    end;
  end;
   Excel.Visible:=True;
   WorkBook :=Excel.WorkBooks.Open('Excelのファイル名');
   WorkSheet := WorkBook.WorkSheets[1];  //壱枚目のシート
   WorkSheet.Cells[1,1].Value:='woopooofooo';    //Excelに値を入れる。
                                                 //取り出しも可能
   WorkBook.close;
   WorkBook:=unAssigned;
   WorkSheet:=unAssigned;
   Excel.Quit;
   Excel:=unAssigned;
end;

流 2004-10-29 23:31:33 No: 11465

usesにExcelを追加します。

そしてこのコードでエクセルを呼び出します
procedure TForm1.Button1Click(Sender: TObject);
var
E:TExcel;
begin
E := TExcel.Create(ファイル名を指定する);
end;