如何从特定文件夹打开excel

例如：我有一个名为TEST的文件夹。测试包含aaa.xlsx、bbb.xlsx、ccc.xlsx、…、zzz.xlsx 现在，如果我在单元格中输入一个文件名aaa.xlsx并输入vba按钮，它应该会显示aaa.xlsx中的数据

---

-文件夹名和文件名是静态的

尝试添加单个工作簿：

Sub openworksheet()
Workbooks.Open Filename:="C:\Users\........\test.xlsx" 'past your file path within " "
End Sub

---

创建的文件名列表为sheet1

Sub DropDown2_Change()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Activate
Sheets("dropdown").Select
Range("a5:Z1000").Clear
    With Worksheets("dropdown").Shapes("Drop Down 2").ControlFormat
    'MsgBox "ListIndex: " & .ListIndex & vbNewLine & "List value:" & .List(.ListIndex)
    Sheets("dropdown").Range("A3").Value = .List(.ListIndex)
    End With
    currentfile = Sheets("dropdown").Range("a3").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\path\" & currentfile
ActiveSheet.UsedRange.Select
Selection.Copy
ThisWorkbook.Activate
Sheets("Dropdown").Activate
ActiveSheet.Range("a5").Select
ActiveSheet.Paste
Windows(currentfile).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

---

谢谢，这对我有帮助。你能分享一个样本文件吗。这个代码对我不起作用。我可能错了，实际上文件夹是静态的。我将创建一个n个文件名的下拉列表。所以我更喜欢用文件名获取。我不想同时打开。想打开单随机。对不起，输出的是编码后的数据。工作不好。我不想同时打开所有文件。我只想打开特定的文件我不知道你的数据结构是什么，你能上传一些样本吗？该代码适用于我的文件。另外，请参阅下面的“我的编辑”，以获取加载单个文件的示例，您可以根据需要构建该文件。