掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excel2000へ、Serversコンポーネントを使って出力するには？ (ID：8227)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TExcelApplication, TExcelWorkbook, TExcelWorksheetの三つのコンポーネント（Serversタブにある）をフォームに貼り付けて、エクセルと接続して出力、という手順だと思うんですが。 エクセルは起動するものの、メニューバーの所だけ表示されて、Sheetの部分はきちんと表示されず・・・。 プログラムもどうやら無限ループに入っているっぽい状態です。（終了ボタンを押しても認知してくれない） どなたか教えてくれませんか？ ------------------------------------------------------------------- ↓記述プログラム procedure TForm1.Button1Click(Sender: TObject); begin //エクセル起動 ExcelApplication1.Connect; //エクセル非表示 ExcelApplication1.Visible[0] := False; //ブック追加(追加したブックが TExcelWorkbook で操作できる） ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(Null,0)); //新しいシートをブックに追加する。 // ExcelWorkbook1.Sheets.Add(Null, Null, Null, Null, 0); //シートを ExcelWorksheetに接続 ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets['Sheet1']as _Worksheet); //A1に文字をセットする。 ExcelWorksheet1.Range['A1','A1'].Value := Edit1.Text; //エクセル表示 ExcelApplication1.Visible[0] :=True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.