CSVを閉じるとき、「クリップボードに大きな情報があります」を出させないようにするには？役に立った：5件
- 投稿日時：2009/10/24 05:33
- 困り度：
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
そういう場合は、そのメッセージを出すコードの前後を
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("貼付けブック名") に変更する
以上です。
この回答へのお礼
早速のご回答、ありがとうございました。
本当に助かりました。
とりあえずは、初めの簡単な方で対処しました。
見も知らないものへのご親切に感謝いたします。
http://officetanaka.net/excel/vba/file/file03.htm
の
＞ブックが変更されたか？
はやっているのですね。
ーーー
Googleで「クリップボードに大きな情報があります マクロ」や
「クリップボードに大きな情報があります VBA」で照会すれば、たくさん記事（同様質問）が出ます。
http://www.keep-on.com/excelyou/2000lng4/200009/ …
など。
これらを読んでやってみてください。
この回答へのお礼
早速の回答、ありがとうございました。
以下はやっていますが、メッセージは出ました。
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
また、よろしくお願いします。
- 最新から表示
- ｜
- 回答順に表示