vba　vlookup関数　エラー　1004 wooksheetFunctionクラスのVlookupプロパティを取得できませんに対しての処置

前提・実現したいこと

既存にあるエクセルのデータシートから単価を抜き出し、
最新の注文情報にある単価データとの比較を行いたいです
その際、まず手始めに最新の注文情報に単価情報が無かった場合には
既存にあるエクセルのデータシートから単価を転記をしたいです
しかし、現状では他ブックにあるエクセルのデータシートから単価を抜き出す
ことができないでいます

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

別ブックを参照してvlookupで項目を反映させたいのですが、参照範囲のコードの部分で以下のエラーメッセージが発生しています。

エラーメッセージ
実行時エラー　1004
wooksheetFunctionクラスのVlookupプロパティを取得できません

該当のソースコード

Sub 発注管理表単価取り込み2()

Dim j As Long
Dim i As Long
Dim SearchRange As Range
Dim wb As Workbook
Dim ws As Worksheet

Columns("F").Insert ' F 列に挿入
Range("F1") = "単価2"

Workbooks.Open Filename:="C:\Users\watar\Documents****\T生産計画から必要な情報抜き取り資料.xlsx"

Set wb = Workbooks("T生産計画から必要な情報抜き取り資料.xlsx")
Set ws = wb.Worksheets(1)
'MsgBox ws.Name + "を取得しました。"
i = ws.Cells(Rows.Count, 1).End(xlUp).Row 'T生産計画から必要な情報抜き取り資料の最終行取得
'MsgBox "最終行：" & i
Set SearchRange = ws.Range(ws.Cells(3, 1), ws.Cells(i, 11))
For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row
'On Error Resume Next
Cells(j, "F") = WorksheetFunction.VLookup(Cells(j, "C"), SearchRange, 3, False)

Next
End Sub

ソースコード
Cells(j, "F") = WorksheetFunction.VLookup(Cells(j, "C"), SearchRange, 3, False)
現状では　上記の　vlookupでエラーが出てしまいます

試したこと

変数のSearchRangeを使わず＝のあとにある直接範囲指定をやってみましたが
状況は変わりませんでした

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

とりあえず、シート名を省略せず書いてみて様子を見るのはどうでしょう。

VBA
1Sub 発注管理表単価取り込み2()
2
3    Dim j As Long
4    Dim i As Long
5    Dim SearchRange As Range
6    Dim wb As Workbook
7    Dim ws As Worksheet
8    
9    Dim mySheet As Worksheet
10    Set mySheet = ActiveSheet
11    
12    mySheet.Columns("F").Insert ' F 列に挿入
13    mySheet.Range("F1") = "単価2"
14    
15    Set wb = Workbooks.Open(Filename:="C:****\T生産計画から必要な情報抜き取り資料.xlsx")
16    Set ws = wb.Worksheets(1)
17    'MsgBox ws.Name + "を取得しました。"
18    i = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 'T生産計画から必要な情報抜き取り資料の最終行取得
19    'MsgBox "最終行：" & i
20    Set SearchRange = ws.Range(ws.Cells(3, 1), ws.Cells(i, 11))
21    For j = 2 To mySheet.Cells(mySheet.Rows.Count, 1).End(xlUp).Row
22        'On Error Resume Next
23        mySheet.Cells(j, "F") = WorksheetFunction.VLookup(mySheet.Cells(j, "C"), SearchRange, 3, False)
24    Next
25End Sub
26