通过使用单元格值中的文件路径从多个Excel文件中检索数据

Question

我有一个excel文件，我希望只需点击一个按钮即可自动检索所有数据。

我已将文件路径存储在B11到B13。

我的代码如下：

Sub FetchData()

Dim wbSource As Workbook
Dim shSource As Worksheet
Dim shDestin As Worksheet
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Corporate Quality\Desktop\test\New Microsoft Excel Worksheet" & Sheets("Sheet1").Range("B3")
Set wbSource = ActiveWorkbook
Set shSource = wbSource.Sheets("Sheet1")
Set shDestin = ThisWorkbook.Sheets("Sheet1")
shDestin.Range("E11") = shSource.Range("A2")
wbSource.Close False
End Sub

是否可以将Workbooks.Open Filename:= "C:\Users\Corporate Quality\Desktop\test\New Microsoft Excel Worksheet"更改为B11：B13？

Answer 1

我不知道B11：B13中有什么，但你可以用你已经为B3做的相同的方式连接这些值。例如，

Filename := Range("B11").Value & Range("B12").Value & Range("B13").Value