実行時エラーについて
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
お礼
ご回答ありがとうございました。 よくわかりました。