掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
EXCELにデータを書き込むするには (ID：1043)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ひとつのボタンで出来るっって事は変数がそのプロシージャーの中だけで宣言されているからではないでしょうか？ Excel : Variant; EApplication : Variant; WorkBook : Variant; WorkSheet : Variant; 上記のような変数をパブリックに作成してExcelを操作する間は開放しないようにしてやればできるのではないでしょうか？ 以下は一応サンプルです。役に立つは分かりませんが・・・。 //Excelの起動 procedure TForm1.Button1Click(Sender: TObject); begin Excel := CreateOleObject('Excel.Application'); Excel.Visible:= True; end; //Excelの終了 procedure TForm1.Button3Click(Sender: TObject); begin Excel.DisplayAlerts := False;//メッセージダイアログを表示しない Excel.Quit; Excel := unAssigned; end; //新規作成 procedure TForm1.Button2Click(Sender: TObject); begin WorkBook := Excel.WorkBooks.Add; WorkSheet := WorkBook.WorkSheets[1]; WorkSheet.Activate; 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.