Vba 另一个工作簿中的Vlookup

我正在尝试从另一个工作簿中删除数据。我正在用vlookup中的文件名进行拉取，我想使其动态化。这是我的密码：

Dim INPUT_PATH As String
Dim WBK As Workbook
Application.DisplayAlerts = True
Application.ScreenUpdating = True

INPUT_PATH = Sheet3.TextBox1.Text

Set WBK = Workbooks.Open(INPUT_PATH)
WBK.Windows(1).Visible = True

ActiveSheet.Unprotect Password:="nch"
Range("B6").Select

ThisWorkbook.Activate
Range("D10").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,2,0)
Range("G10").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,3,0)
Range("D12").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,4,0)
Range("G12").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,5,0)
Range("D14").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,6,0)
Range("G14").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,7,0)
Range("F16").Formula = "=VLOOKUP(G8,'[Rate.xlsx]Asset Depreciation'!$C:$J,8,0)

如下

Dim fileName As String, sheetName As String
fileName = "Rate.xlsx"
sheetName = "Asset Depreciation"

Range("D10").Formula = "=VLOOKUP(G8,'[" & fileName & "]" & sheetName & "'!$C:$J,2,0)"

---

“我想让它充满活力”——以什么方式？请更具体一点，我需要一个关于vlookup公式的帮助。。我正在从另一个工作簿中提取vlookup公式，将来可能会更改文件或工作表名称。。如果我们使用Variable提取公式，即使文件或工作表名称发生更改，也会影响编码。。请在此提供有关vlookup公式的帮助。如果您有这些公式，然后更改文件或工作表名称，则公式应自动更新。