ASPで一定のデータをEXCELに出力しサーバに保存

質問

ASPで一定のデータをEXCELに出力しサーバに保存し、結果印刷するものを作ってます。
１）ASPで、基本のシート(フォーム)をフォームをコピーする。
２）データの項目がブレイクしたらシートを変える。
３）横の列が256以上になったら、新しいシートに書く。
といったものです。

が、雛型のシートをコピーしても新しく出来たシートには設定がなくなってしまいます。
また、新しいシートを追加するとき、右方向に追加したいのですが、どうしても左方向にシートが出来ていきます。
「AFTER:=」はエラーになってしまいます。「,」ではうまく行きませんでした。
下記のコメント部分も試してみました。

どのような書き方をすれば、うまく結果がでますか？
解決策を教えて下さい。

Set sheetobj = bookobj.Sheets.Add
'bookobj.Sheets("フォーム").copy , sheetobj
'Set sheetobj = bookobj.Sheets(intSheetCnt)

'Set sheetobj = bookobj.Sheets("基本のシート").copy bookobj.Sheets(1)
'Set sheetobj = bookobj.Sheets.Add

回答No.3

you111111 · ベストアンサー

>上書きコピーになってしまい、追加コピーがされないのです。

意味がよくわかりませんが・・・

Bookの初期状態が雛形シートの１枚しかない前提でのやり方としては、
１．まず雛形となるシートのコピーを２枚目に作成する。
２．１枚目のシートに書き込みを行う。
３．１枚目のシートの書き込み限界がきたら、２枚目を最後尾にコピーし、２枚目のシートに書き込みをする。
・・・と繰り返して行き、最終のデータ書き込みをした時点でそのデータを書き込んでいたシートが全体数より少なければ、多い分(必ず多くなるはずですが・・・)を後ろから削除し、別名保存する。
といった形式で行えば、雛形・設定等は残った形(未書込状態)でのコピーは行えます。

お礼

できました！
you111111さん、細かい回答ありがとうございました。

回答No.2

you111111

訂正 (^^;

bookobj.Sheets(1).copy , objExcelBook.Sheets(intSheetCnt)

補足

ありがとうございます。
教えていただいた通り記述してみましたが、やはりうまく行きませんでした。
上書きコピーになってしまい、追加コピーがされないのです。

回答No.1

you111111

intSheetCntというのが現在のシート数だと思いますので、たとえば、１番目のシートを最後尾にコピーするのであれば

bookobj.Sheets(1).copy , objExcelBook.Sheets(intSheetCnt+1)

でいけると思われますが。