ベストアンサー

メッセ－ジボックスを非表示に出来ますか

2007/03/16 18:12

マクロ初心者です先日ココで助けて頂きファイルの読み込みの記述を教えて頂き下記記述を作りましたが！一つ問題がありまして再度助けて頂きたいのですがコピ－したあとそのファイルが不要の為閉じますがその際メッセ－ジボックスが現れ「クリップボ－ドに大きな情報があります。この情報をほかのプログラムに貼り付けられるようにしますか？」と、「クリップボ－ドに保存されているデ－タの大きさや形が、指定された領域と異なります。貼り付けますか？」と現れるのですが、このメッセ－ジを表示しないようにしたいのですが何か良い手はありますでしょうか？回答　宜しくお願い致します Filename = ThisWorkbook.Sheets("す-ぱ-こんぴゅ-た-").Range("B1").Value Workbooks.Open Filename:= _ "C:\Documents and Settings\k-saruwatari\" & Filename Cells.Select Selection.Copy ActiveWindow.Close Windows("試作.xls").Activate Sheets("Error Log").Select Cells.Select ActiveSheet.Paste Sheets("ぽちっと").Select ThisWorkbook.Activate Filename = ThisWorkbook.Sheets("す-ぱ-こんぴゅ-た-").Range("C1").Value Workbooks.Open Filename:= _ "C:\Documents and Settings\k-saruwatari\" & Filename Cells.Select Selection.Copy ActiveWindow.Close Windows("試作.xls").Activate Sheets("Lot Log").Select Cells.Select ActiveSheet.Paste Sheets("ぽちっと").Select ThisWorkbook.Activate