循环时更新文件引用

Question

我正在尝试遍历文件夹中的文件并使用引用获取该文件的数据，我使用下面的代码，但仍然会在我必须手动选择文件路径的每个文件处弹出更新值窗口。如何自动做这个引用

[Salary.Value 是该文件夹中文件中单元格的名称]

Dim myfolder As String
Dim myfile As String
Dim wbk As Workbook

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "please select a folder"
    .Show
    .AllowMultiSelect = False

myfolder = .SelectedItems(1) & "\"
End With
myfile = Dir(myfolder)

Do While myfile <> ""
Set wbk = Workbooks.Open(Filename:=myfolder & myfile)

' the next line is the one in question
Range("I6").FormulaR1C1 = "='myfile'!Salary.value"

myfile = Dir
Loop
End Sub

一个名为更新值的浏览窗口正在弹出

Answer 1

'MyFile' 是一个变量名。但是你如何使用它，它被认为是工作簿的名称。 试试

Range("I6").FormulaR1C1 = "='" + MyFile + "'!Salary.value"

改为