実行時エラーについて

質問

Konkon_mと申します よろしくお願いします
エクセルの質問なんですが、今回ワークシートから別のワークシートに表と数値を貼り付けるマクロを作成したのですが終了時に、『実行時エラー'1004' WorksheetクラスのPasteメソッドが失敗しました』のエラーがでるのです
一応、コピー＆貼り付けはきちんと終了しているようなのですがすごく気になります
作成したマクロを載せますので、わかる方がいらっしゃいましたら教えていただけないでしょうか？
宜しくお願いします

ChDir "H:\A\B"
Workbooks.Open FileName:="\\PRO800\Home Directory\B\B\コピー.xls"
ActiveWindow.WindowState = xlMinimized
Range("B3:D10").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMinimized
Windows("コピー.xls").Activate
ActiveWindow.WindowState = xlNormal
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B3:D10").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.WindowState = xlNormal
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
ActiveWindow.WindowState = xlMaximized
End Sub

回答No.1

tyoufu · ベストアンサー

エラーメッセージが表示されるときに「デバッグ」というボタンが表示されると思います。
このボタンをクリックすると、実際にエラーが起こっている行が表示されるのですが、

ActiveSheet.Paste

で起こっていませんか？
この命令文は調べてもらえればわかると思いますが「貼り付け」をしています。
※Selection.PasteSpecialは形式を選択して貼り付けです。
このエラーは貼り付ける情報がないのに貼り付け様とすると出るようです。

マクロを見ると他に色々と作業をされているようですが、実際に現在のファイルから別のファイルへのコピー作業だけ抜粋すると下のようになります。
※先に現在のシートのコピーを行ってから別のブックのシートへのコピーをしています。

ChDir "H:\A\B"

'貼り付ける元の情報をコピーする
Range("B3:D10").Select
Selection.Copy

'貼り付ける先のブックを開く
Workbooks.Open Filename:="\\PRO800\Home Directory\B\B\コピー.xls"
'形式を選択して貼り付ける
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'貼り付ける先のブックを保存し閉じる
Workbooks("コピー.xls").Save
Workbooks("コピー.xls").Close

End Sub

お礼

ありがとうございます
なんとか解決しました
またなにかありましたらお願いします！！