使用单元格值中的文件路径从多个 excel 文件中检索数据答案

【问题标题】：Retrieve data from multiple excel file by using file path in the cell value使用单元格值中的文件路径从多个 excel 文件中检索数据
【发布时间】：2014-05-19 02:15:09
【问题描述】：

我有一个 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 ？

【问题讨论】：

是的。正如@AndyG 发布的那样，您可以以相同的方式将其连接起来。但是，如果您想从存储在 B11-B13 中的不同文件源加载所有信息，则必须遍历它并修改您的代码。

标签： excel excel-2010 export-to-excel vba

【解决方案1】：

我不知道 B11:B13 中的内容，但您可以使用与 B3 相同的方式连接这些值。例如，

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

【讨论】：