VB初心者質問スレ　Part8 （･∀･）

>>343

Sub a()
　　Dim boCheck As Boolean
　　Dim filename As String
　　
　　boCheck = Application.Dialogs(xlDialogOpen).Show
　　filename = ActiveWorkbook.Name
　　
　　If boCheck = False Then
　　　　MsgBox "キャンセルが選択されました。処理を中止します。"
　　　　Exit Sub
　　Else
　　　　ActiveSheet.Range("B1:C2").Copy
　　　　Workbooks(filename).Close SaveChanges:=False
　　　　ActiveSheet.Range("A1").Select
　　　　ActiveSheet.Paste
　　End If
End Sub

>>345
ありがとうございます。大変助かりました。

もう1つだけお願いします。
B1:C2と書きましたが、コピーエリアはもっと大きくて
＞Workbooks(filename).Close SaveChanges:=False
ここで、下記メッセージが出ます。

クリップボードに大きなデータがあります。他で参照する場合はYESを
参照しない場合はNOを選択してください。
↑
これを出なくすることは出来ますか？

>>346
Elseの次の行に
Application.DisplayAlerts = False
を追加

>>347
ありがとうございます。解決しました。助かりました。