掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExcelApplication利用で時間がかかる。 (ID：27470)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おかしいな？ (1 - 1) * 22 + 3 = 3 (2 - 1) * 22 + 3 = 25 (3 - 1) * 22 + 3 = 47 のはずですが？？ 下記のように頁毎でなく、全てを一度にすればどうでしょう。 > if (iRow mod 21) = 0 then > begin > //R := IR + Trunc(IR/21) - 21; マスク Clipboard.AsText := Clipboard.AsText + #13#10 + #13#10 + #13#10 + #13#10 + #13#10; > //ExcelApplication2.ActiveWindow.ActiveCell.Cells.Item[R,1].pasteSpecial; マスクループの外に出す。 > Clipboard.AsText := ''; Inc(IR); //頁増加 > end; > end; //追加 ExcelApplication2.ActiveWindow.ActiveCell.Cells.Item[3,1].pasteSpecial;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.