エクセルシートのコピー (ID:42849)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たびたび、失礼します。 TExcelApplication で雛形エクセルファイルを開き、あらかじめ用意した「基本」シートをいくつもコピーしたいのですが、コピーしすぎてしまい、困っています。 多分、ループの二乗しています。 ご指導お願いします。 var ExcelApp:TExcelApplication; ExcelBook:TExcelWorkBook; ExcelSheet1,ExcelSheet2:TExcelWorkSheet; ExcelSheet1.ConnectTo(ExcelApp.Worksheets['基本'] as _WorkSheet); ExcelSheet1.Activate; While not Query.EOF do begin (ExcelBook.Sheets.Item['基本'] As ExcelWorkSheet).Select(EmptyParam,LCID); (ExcelBook.Sheets.Item['基本'] As ExcelWorkSheet).Copy(EmptyParam,ExcelBook.Sheets.Item['基本'],LCID); end; 最初、Copyの引数を新しいシート名で入力するようにしていたのですが、 「インデックスが無効です」となります。 一応、こちらを参考にしました。 https://www.petitmonte.com/bbs/answers?question_id=854 http://www12.plala.or.jp/selen/Delphi/Del_Excel.html