実行時エラー '1004'「RangeクラスのPasteSpecialメソッドが失敗」
というエラーが実行時に出たり出なかったりします。
常にエラーが出てくれればそれはそれで(?)いいのですが、普通に実行できることもあるので自分には対処できませんでした。。。
ある形式に沿って保存されている大きめのファイル(4つで1組)をマクロによって数式処理させるマクロとなります。
このデータが大きく、マシンパワーもあまりないため開いたり閉じたり、またコピーペーストにと各所で処理に多少時間が掛かるので、それが問題かなとも思い処理の間に待ち時間を挿入したりしてみたのですが、その際にはエラーが出る確率は有意に低くはなりましたが、まだ出てしまいます。
エラーした際にデバッグすると下のような処理の中でのPasteSpecialにハイライトが掛かっており、4つのうちどれでも起こりうるようです。
原因とその解決策を教えて頂きたいと思います。宜しくお願いします。
----------------------------------------
'対象のファイルを開いてコピー、その後閉じる
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & ActiveCell.Offset(i, 0).Range("A1").Value
Range("E1:E500000").Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
'myfileに4つを貼り付け(今回は省略してますがForで回して4つ出揃った後、それらで数式処理)
Workbooks(myfile).Activate
If j = 1 Then
Range("G3").Select
Selection.PasteSpecial
ElseIf j = 2 Then
Range("H3").Select
Selection.PasteSpecial
ElseIf j = 3 Then
Range("I3").Select
Selection.PasteSpecial
ElseIf j = 4 Then
Range("J3").Select
Selection.PasteSpecial
End If
No.2ベストアンサー
- 回答日時:
> 原因とその解決策を教えて頂きたいと思います。
遅すぎたかもしれませんが(汗)、自分の知っている範囲で・・・
(自分は専らAccess VBAばかり扱っているので)
【原因】
PasteSpecialを実行する前に、その参照元となるブックが
閉じられたことにより、その前に行った「Select」による選択が
無効化してしまっています。
(エラーにならないことがあるのは・・・別のブックが「Active
Workbook」と判断されて閉じられていたりしないでしょうか(汗))
【解決策】
PasteSpecialを実行する前の「ActiveWindow.Close」を
やめて、PasteSpecialの実行後に、コピー元のブックを
閉じるようにします。
このとき、閉じる対象を確実に「コピー元のブック」とするために、
コピー元を開く際の「Workbooks.Open」の戻り値を、変数に
記録しておき、これを使用してブックを閉じます。
【コード】
'コピー元を記録するための変数を宣言
Dim Wkb As Workbook, Rng As Range
'変数「Wkb」に、コピー元を記録
'(Workbookなどの「オブジェクト」と総称されるものに値を記録する
' 場合は、先頭に「Set 」をつける必要があります。また、その際は、
' Openメソッドの引数(ここではファイルパス)は「( )」で囲みます)
Set Wkb = Workbooks.Open(Filename:=ActiveWorkbook.Path & "\" & ActiveCell.Offset(i, 0).Range("A1").Value)
'先頭に「Wkb.」をつけて、同ブックの「E1~E500000」であることを
'明示して変数に格納した後、コピー
'(ここではSelectは省略した方が効率的です)
Set Rng = Wkb.Range("E1:E500000")
Rng.Copy
'できればここも「myfile」用の変数を別に用意して、上と同様に
'対象を明示するとともに、Selectは省略した方がよいかと思います。
Workbooks(myfile).Activate
If j = 1 Then
Range("G3").Select
Selection.PasteSpecial
ElseIf j = 2 Then
Range("H3").Select
Selection.PasteSpecial
ElseIf j = 3 Then
Range("I3").Select
Selection.PasteSpecial
ElseIf j = 4 Then
Range("J3").Select
Selection.PasteSpecial
End If
'コピー用の選択状態を解除
'(これにより、「クリップボードに~」のメッセージが表示されなくなる
' ので、DisplayAlertsの切り替えが不要になります)
Application.CutCopyMode = False
'コピー元を閉じる
Wkb.Close
'念のため、明示的に変数を初期化してメモリを解放
Set Rng = Nothing
Set Wkb = Nothing
・・・以上です。
ご丁寧にどうも有難う御座いました。
お礼が遅くなってしまって申し訳ありませんでした。
エラーはまだ出てしまうので、他にも原因がありそうですがその頻度は確実に下がりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
[ マクロ ] エラーになったりならなかったりする
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
5
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
6
Excel vbaについての質問
Visual Basic(VBA)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
実行時エラー1004が出たり出なかったりします
Excel(エクセル)
-
9
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
10
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
【Excel2003】全く同じ関数なのに、エラーが出たり出なかったり
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
15
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
16
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
17
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
18
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
19
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
20
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ひとつのファイルを一括で複数...
-
SDカードをパソコンに落とす...
-
DVD-RAMからDVD-Rにコピーする...
-
ROBOCOPYで移行元と先でサイズ...
-
複数のフォルダへ同時にファイ...
-
Windows10 で登録した外字を他...
-
エクセルのVBAで、フォルダ...
-
XCOPYで指定したフォルダとファ...
-
電話帳データをコピーしたいです
-
外字の取り込みでエラー
-
ニンテンドースイッチのSDカー...
-
PCからPSPに……
-
robocopyでフォルダ自体のコピ...
-
CD-Rの再生をすると途中で止まる
-
ファイルのコピー正常終了を確...
-
パソコン、ワンドライブをプリ...
-
DVDをUSBメモリーにコピーして...
-
フォルダの日付を変更せずにコ...
-
robocopyをbatで動かしたい
-
ファイル 「送る」と「コピー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ひとつのファイルを一括で複数...
-
複数のフォルダへ同時にファイ...
-
DOSコマンドでファイルをコピー...
-
XCOPYで指定したフォルダとファ...
-
SDカードをパソコンに落とす...
-
Windows10 で登録した外字を他...
-
robocopyでフォルダ自体のコピ...
-
VBAマクロ 実行時エラーが出た...
-
パソコン、ワンドライブをプリ...
-
ROBOCOPYで移行元と先でサイズ...
-
外付けHDD Aに他のHDD Bのバッ...
-
ファイルのコピー正常終了を確...
-
ファイル 「送る」と「コピー...
-
DVD-RAMからDVD-Rにコピーする...
-
コピー先フォルダの更新日時を...
-
VBAでネットワークコンピュータ...
-
ファイル名の順番通りにコピー...
-
ニンテンドースイッチのSDカー...
-
エクセルに添付された画像をフ...
-
外付HDDにフォルダーが作れず、...
おすすめ情報