打开文件上的VBA Vlookup

我需要一些关于VLOOKUP的VBA帮助。错误弹出，表示应用程序定义错误或对象定义错误。有时它显示所需的对象。提前谢谢。我录制了宏，但当我将它放在VBA上时，它不工作

  Sub CopyData()
  '
  Dim Newbook As Window
  Dim wb As Workbook, wb2 As Workbook
  Dim ws As Worksheet
  Dim vFile As Variant

  Set wb = ActiveWorkbook

  For Each wkb In Workbooks ' Looking for new file created on multiple workbooks
  If Left(wkb.Name, 4) = "Book" Then
  Set wb3 = wkb
  Exit For
  End If
  Next wkb
  wkb.Activate          
  Sheets("Prices").Select' Selecting the sheet of the newly created workbook
  Range("F2").Select
  vFile = Application.GetOpenFilename("All-Files,*.xl**", 1, "Select One File To Open", , False) 'Open the data source workbook
  If TypeName(vFile) = "Boolean" Then Exit Sub
  Workbooks.Open vFile
  Range("F2").Text = "=VLOOKUP(RC[-4]&MID(RC[-3],3,3),[" & vFile & "]Sheet1!R3C1:R8149C15,15,FALSE)"
  Range("F2").Select
  Selection.AutoFill Destination:=Range("F2:F" & Cells(Rows.Count, 1).End(xlUp).Row)
  End Sub

---

我认为您应该使用RangeF2.FormulaR1C1=。。。而不是RangeF2.Text=。。。。F2也是vFile上的工作表吗？我已经尝试过R1C1，但仍然给出相同的错误。此外，F2是文件vfile上的单元格本身。您缺少工作簿引用的单个引号。该部分应为：“[&vFile&]Sheet1”