単純なVBAスローイングオブジェクトエラー1004

Question

これは、各ワークシートをループし、VLOOKUP式（閉じたワークブックを参照する）を挿入します。コードは最初のシートから始まり、対応するワークブックを見つけて開き、VLOOKUPを実行してから次のシート/対応するワークブックに移動します。私がObjectエラーに遭遇する場所である.Cellsを押すまで、すべてが機能します。私は何が欠けていますか？このマクロを元のワークブックから実行してから、外部ワークブックを開きます。

For Each ws In ThisWorkbook.Worksheets 
    If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") Then 
     Set wbPath2 = Workbooks.Open("C:\MyDirectory\MyFile1.csv") 
     sourceSheet = "[MySheet.csv]" 

     With ws 
      .Cells(Application.WorksheetFunction.Match("Account1", .Range("A:A"), 0), Application.WorksheetFunction.Match(ComboBox1.Value & " " & Year(Date), .Range("A6:BZ6"), 0)).Formula = "=VLOOKUP(""Account1 Service"",'" & Root & sourceSheet & ws.Name & " " & monthNumber & "." & lastDay & "." & Format(Now(), "yy") & "'!$A:$G,4,FALSE)" 

Answer 1

オブジェクトはComboBox1.Valueのようです。 シートコードでは、コンボボックスを使用することができます。しかし、モジュールでは不可能です。したがって、obleObjectとリンク・セルを使用してください。セル値を取得します。

Dim ws As Worksheet 
Dim obj As OLEObject 
Dim strCombo As String 
For Each ws In ThisWorkbook.Worksheets 
    If (ws.Name = "Sheet1") Or (ws.Name = "Sheet2") Then 
    Else 
     Set wbPath2 = Workbooks.Open("C:\MyDirectory\MyFile1.csv") 
     sourceSheet = "[MySheet.csv]" 

     With ws 
      k = .Name 
      Set obj = .OLEObjects("ComboBox1") 
      obj.LinkedCell = "q1" 'your blank cell link ; this link "q1" cell 
      strCombo = .Range("q1") 
      .Cells(Application.WorksheetFunction.Match("Account1", .Range("A:A"), 0), Application.WorksheetFunction.Match(strCombo & " " & Year(Date), .Range("A6:BZ6"), 0)).Formula = "=VLOOKUP(""Account1 Service"",'" & Root & sourceSheet & ws.Name & " " & monthNumber & "." & lastDay & "." & Format(Now(), "yy") & "'!$A:$G,4,FALSE)" 
      .Range("q1").Clear 
     End With 
    End If 

Next 

Answer 2

私のファイルパスポインタで何かを連結するのを忘れてしまいました。デバッグのヒント@Jordanに感謝します。