お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RE^2:Excelを使う"

この発言は
#00398 watashi   さんのRE:Excelを使う
に対するコメントです

この発言に対し以下のコメントが寄せられています
#00405 watashi   さん RE^3:Excelを使う

watashiさん こんにちは 凛です。 ご指摘ありがとうございます。 うーん、動作確認したと思ったんですが、、確かにおかしいですね、、 Niftermにコピーした後でなんかの拍子に1行消しちゃったのかも知れません。 で、実際に使っている元コードを確認し動作確認したのが以下のコードです procedure TForm1.Button1Click(Sender: TObject); var Excel: Variant; WorkBook: Variant; WorkSheet: Variant; begin //仮に三枚のシートを使うと仮定 Excel := CreateOleObject('Excel.Application'); WorkBook := Excel.Workbooks.Add;//これが抜けていた while Workbook.sheets.count<3 do begin Workbook.sheets.add; end; WorkSheet := WorkBook.WorkSheets[1]; WorkSheet.name:='poo'; WorkSheet.Cells[1,1].Value:='pooo'; WorkSheet.Columns[1].EntireColumn.AutoFit; WorkBook.SaveAs( Filename:='c:\poo.xls'); WorkBook.close; WorkBook:=unAssigned; WorkSheet:=unAssigned; Excel.Quit; Excel:=unAssigned; end; でした、 私のところでは > WorkBook := Excel.Application; // ←追加 > WorkBook.WorkBooks.Add; // ←追加 にすると WorkBook.SaveAs( Filename:='c:\poo.xls'); でエラーが出たんですが、そんなこと無いです? > と、すれば、一応EXCEL95と97両用のプログラムが書けます。(- -)メンドウダケド・・ (T T) ありがとうございます。 知らなかったです   98/02/16(月) 21:32 凛(MXB01744) Original document by 凛 氏 ID:(MXB01744)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum