从文件夹中的所有工作簿导入数据

Question

我放弃了。我已经搜索过，我已经通过搜索，我已经看到了任何数量令人困惑的三页代码片段，坦白说，虽然我确定他们已经过了所有好的解决方案代码都超出了我的范围。

我有一堆数据表，结构相同但其中包含大量不同的数据。它们都存储在同一目录中，我试图制作一个宏来循环它们。

这是我最初的尝试（其中RunImport是复制所有这些数据字段的函数）。它没有用。

Private Sub But_BatchRun_Click()
Dim sImpFolder As String, wb As Workbook

sImpFolder = GetFolder

For Each wb In sImpFolder
    call runimport (wb)
Next wb

End Sub

有没有简单和简短的方式来做这个不涉及八页代码的方法？