Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72403 / 76732

←次へ　｜　前へ→


	【8812】Re:windowの再取得

りん

- 03/11/3(月) 23:20 -


	引用なし

	パスワード

めぐさん、こんばんわ。

>ただコピー、ペースト方法がちょっとわからないのですが。。。
>お時間がありましたらよろしくお願い致します。
シートのコピーということでしょうか。

　　データシートが３つあるのでループは３回　
>>　 For II = 1 To 3
　　　　II番目のシートの前に、ws(II)にSetしたシートをコピーします。
>>　　　ws(II).Copy before:=wb2.Sheets(II)'テスト用.xlsにコピー
>>　　　ws(II).Copy before:=wb3.Sheets(II)'３０１在庫.xlsにコピー
　　　　コピーのすんだシートを含むブック(SheetのParentはBook)を
　　　　保存せずに閉じます
>>　　　With ws(II).Parent
>>　　　　 .Saved = True
>>　　　　 .Close savechanges:=False
>>　　　End With
　　　　次のシートへ
>>　 Next
　
　前もって配列に格納しておいたワークシートをSheetのCopyメソッドで、位置を指定してコピーするようにしています。
　テスト用.xlsを保存せずに閉じるならば、wb2にコピーする処理は省いていいです。

＃前にこれを書いたときに、送信を押したらエラーでけられてしまって（泣）
　その後返事が遅くなってすみませんでした。

0 hits

▼

【8561】windowの再取得 めぐ 03/10/24(金) 9:57