VBA动态打开同一文件夹中的文件

Question

是否可能在名为Tom Dick和Harry的文件夹中有许多工作表，而名为admin的文件夹中有许多工作表。 管理员有一些数据输入单元格，其中一个具有下拉菜单以选择Tom Dick或Harry。 然后，当宏被触发时，它会在相关工作表上进行填充吗？ 我正在从其他所有出色的质量检查人员那里快速学习如何做这些事情，但是我找不到足够具体的东西。 我读过，这可能工作：

Workbooks.Open文件名：= ThisWorkbook.Path和“ Tom.xls”

但是如何使它更具动态性，使其可以根据下拉选择打开Dick或Harry？

期待中的欢呼声:-)

Answer 1

让我在这里稍微补充一下我的评论。 首先，我们假设您在一个文件夹中有4个工作簿：“ Tom”，“ Dick”，“ Harry”和“ admin”。还假设您在工作表“ admin”中输入数据的工作表也称为“ admin” “。在工作表“ admin”中，您在单元格A1中进行了数据验证，该数据验证使用户可以选择三个字符串之一：“ Tom”，“ Dick”和“ Harry”。我将执行以下操作：

Dim admin as Workbook, wb as Workbook
Dim str as String

Set admin = Thisworkbook 'assuming you are writing this code in the workbook admin, which seems to be the case
str = admin.Sheets("admin").Range("A1").Value2
Set wb = Workbooks.Open(admin.Path & "\" & str & ".xls") 'assuming the files are .xls, just change the extension if they are otherwise

有了这个，您就有了一个工作簿变量wb ，它允许您在工作簿打开后对其执行操作。