VBAエラーメッセージ(オブジェクトが必要です)の解決方法

Question

1. 番号リスト```ここに言語を入力

コード

ある数値データを取得した後に、別ブックに貼り付けを行う
その処理をB2～D2に貼り付けたいので、For文で(a = 2 To 4)とし、(2,a)とセルの指定をしています

### 発生している問題・エラーメッセージ

実行時エラー’424’
オブジェクトが必要です

```VB
Sub 弾性係数()
 
    Dim RC As Integer
    Dim OpenFileName, fileName, Path, SetFile As String
    Dim wbMoto, wbSaki As Workbook
    Dim a As Integer
 
    Set wbMoto = ActiveWorkbook
 
    Application.DisplayAlerts = False
    
    RC = MsgBox("弾性係数のデータを取込みますか？", vbYesNo + vbQuestion, "確認")
    
    
    For a = 2 To 4
    
    If RC = vbYes Then0.
               
            OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx")
    
            If OpenFileName <> "False" Then
                 SetFile = OpenFileName
            Else
                MsgBox "キャンセルされました"
                Exit Sub
            End If
            
            Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
            
            Set wbSaki = Workbooks.Open(Path & SetFile)
            
                wbSaki.Worksheets(1).Range("G2").Copy
                wbMoto.Worksheets(1).Cells(2, a).PasteSpecial '.xlPasteFormulasAndNumberFormats
                
                
                Application.CutCopyMode = False
                wbSaki.Close False
        Else
        
        MsgBox "処理を中断します"
    
    End If
    
   Next
    
    
    
    Application.DisplayAlerts = True
 End Sub

試したこと

Setをつけてみましたが、エラーがでました。
他のエラー処理方法を試してみても、同じようにエラーがでました。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[meg_]

・コードは「コードの挿入」で記入してください。
・エラー発生箇所はどこでしょうか？

[Fukuyuu]

コードの挿入を行いました。
エラー発生箇所は”G2”の値をコピー後の貼り付けの際にエラーが発生します。
質問してくださった後に大変申し訳ないのですが、このコードと何も変更していないにも関わらず、先ほど実行してみると最後まで処理されました。

[Usirow]

エラーの内容からして、何らかの理由でwbMotoへのワークブック格納がされていなかった、ということが原因として考えられそうです。なんでそうなったのかはわかりませんが……

Answer 1

            Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0

            Set wbSaki = Workbooks.Open(Path & SetFile)

上記のコードですが、同じブックを2回開こうとしています。
エラーにはなりませんが、無駄な処理ですね。

     Workbooks.Open Filename:="C:\TEMP\TEST.xlsx", ReadOnly:=True, UpdateLinks:=0
     Set wbSaki = Workbooks("TEST.xlsx")

とするか、下記のようにしましょう。

     Set wbSaki = Workbooks.Open(Filename:="C:\TEMP\TEST.xlsx", ReadOnly:=True, UpdateLinks:=0)

    Dim OpenFileName, fileName, Path, SetFile As String
    Dim wbMoto, wbSaki As Workbook

上記もエラーにはなりませんが、下記のように一つずつ型を指定するようにします。

    Dim OpenFileName As String, fileName As String, Path As String, SetFile As String
    Dim wbMoto As Workbook, wbSaki As Workbook

型を省略するとバリアント型になります。

質問のエラーとは関係ないですが、気になったので。

Comments

[Fukuyuu]

細かい部分の指摘をしていただき、ありがとうございます。
VBを扱うのが初めてだったので、このような指摘がとてもありがたいです。