CSVを閉じるとき、「クリップボードに大きな情報があります」を出させないようにするには？

質問

Excelのマクロで、表.csvをExcelの「データ貼り付け」シートに貼り付ける際に、「クリップボードに大きな情報があります。」と出ます。下記の４行目でです。これを出させないようにするにはどうしたらいいでしょうか？
　情報は、10列で最大で200行位（不明）です。
Workbooks.Open ("D:\表.csv")
Range("B2:N3000").Select
Selection.Copy
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Sheets("データ貼り付け").Select
Range("A1").Select
ActiveSheet.Paste

回答No.2

myRange

そういう場合は、そのメッセージを出すコードの前後を
Application.DisplayAlerts = False
Application.DisplayAlerts = True
で挟んでやります。
詳しくは、DisplayAlertsプロパティのヘルプを参照のこと。

（質問者のコードをそのまま使用してあります）
'-----------------------------------------------
Sub Test222()
　Workbooks.Open "D:\表.csv"
　Range("B2:N3000").Select
　Selection.Copy
'●●
　Application.DisplayAlerts = False
　　　ActiveWorkbook.Saved = True
　　　ActiveWorkbook.Close
　Application.DisplayAlerts = True
'●●
　Sheets("データ貼り付け").Select
　Range("A1").Select
　ActiveSheet.Paste
End Sub
'------------------------------------------------

■ただ、質問のような単純なコピぺであれば
クリップボードを通さない方法を使った方がシンプルです。

因みに、単純で【ない】コピペとは
形式を選択して貼付け（値のみ、書式のみ貼付けなど）のことです。

'---------------------------------------------------
Sub Test333()
　Workbooks.Open "D:\表.csv"
　Range("B2:N3000").Copy ThisWorkbook.Sheets("データ貼り付け").Range("A1")
　ActiveWorkbook.Close False
End Sub
'---------------------------------------------------

上記コードでは、
マクロのあるブック(ThisWorkbook）に貼り付けてます。
貼り付けブックがマクロのブックでなければ
ThisWorkbookを　Workbooks("貼付けブック名")　に変更する

以上です。

お礼

早速のご回答、ありがとうございました。
本当に助かりました。
とりあえずは、初めの簡単な方で対処しました。
見も知らないものへのご親切に感謝いたします。

回答No.1

imogasi

http://officetanaka.net/excel/vba/file/file03.htm
の
＞ブックが変更されたか？
はやっているのですね。
ーーー
Googleで「クリップボードに大きな情報があります マクロ」や
「クリップボードに大きな情報があります VBA」で照会すれば、たくさん記事（同様質問）が出ます。
http://www.keep-on.com/excelyou/2000lng4/200009/00090319.txt
など。
これらを読んでやってみてください。

お礼

早速の回答、ありがとうございました。
以下はやっていますが、メッセージは出ました。
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
また、よろしくお願いします。