掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excelが終了されない (ID：1704)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっております。 ソロです。 以下のソースなのですが、 DelphiからExcelを呼んで書き込みをしています。 ところが、エクセルが終了されず、延々と残っているのです。 コメントに書いてあるソースで DisConnect や Unassigned をしようとしても ”オブジェクトでサポートされていないメソッドです”みたいなエラーが。。 usesにちゃんと”ComObj”も書いてます。 どこがおかしいのでしょうか。 //ブック名 BookName := 'test.xls'; //シート名 BookName := 'sheet1'; //Excelオブジェクト作成 ExcelApplication1 := CreateOleObject('Excel.Application'); //Excelブックを開く ExcelApplication1.Visible := False; ExcelApplication1.WorkBooks.Open(''+BookName+''); ExcelWorkBook1 := ExcelApplication1.activeworkbook; //シートを指定 ExcelSheet1 := ExcelApplication1.Worksheets.item[''+SheetName+'']; ExcelSheet1.activate; {処理をいろいろと} ExcelApplication1.DisplayAlerts := False; //保存 ExcelWorkBook1.SaveAs(''+BookName+''); //セーブしないで終了 ExcelApplication1.ActiveWorkbook.Close(''+BookName+''); ExcelApplication1.Quit; //ExcelApplication1.Disconnect; //ExcelApplication1:=Unassigned;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.