Ｐａｇｅ 83 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼「ファイルを保存しますか？」のメッセージを出さずに保存する方法。 Reiko 02/9/15(日) 13:01 ┗Re:「ファイルを保存しますか？」のメッセージを出さずに保存する方法。 Sherpa 02/9/15(日) 13:10 ┗Re:「ファイルを保存しますか？」のメッセージを出さずに保存する方法。 Reiko 02/9/15(日) 13:19 ─────────────────────────────────────── ■題名 ： 「ファイルを保存しますか？」のメッセージを出さずに保存する方法。 ■名前 ： Reiko ■日付 ： 02/9/15(日) 13:01 -------------------------------------------------------------------------
| こんにちは。いつもお世話になってます。 今、次のように異なるBook間でのコピー＆ペースト繰り返しのマクロを書いています。 Dim RowPos As Integer Dim ColPos As Integer RowPos = 64 ColPos = 2 Do If ActiveSheet.Cells(RowPos, ColPos) = "" Then Exit Do End If If ActiveSheet.Cells(RowPos, ColPos) = 1 Then Range("C66:D66").Select Selection.Copy ActiveWorkbook.Close Range("C64").Select ActiveSheet.Paste Range("A1").Select End If Loop While ActiveSheet.Cells(RowPos, ColPos) = 1 ただ、これだとBookを閉じていくたびに「保存しますか？」の メッセージが出てしまうので、次のようにしてみたところ、 Pasteに失敗しました、というエラーが出てしまいます。 Selection.Copy ActiveWorkbook.Save ← 挿入したらエラー。 ActiveWorkbook.Close 「保存しますか？」メッセージなしに強制的に保存して Bookを閉じ、処理を繰り返していきたいのですが、 こんな時どうしたらよいでしょうか？ |
| ActiveWorkbook.Close savechanges:=True でOKでは |
| ▼Sherpa さん： >ActiveWorkbook.Close savechanges:=True >でOKでは OK!でした。 すみません。ベタな質問をしてしまったようで・・・。 早速の御返事ありがとうございました。 |