![如何使用宏 Excel 打开特定文件夹中的特定文件](https://linux22.com/image/1371521/%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8%E5%AE%8F%20Excel%20%E6%89%93%E5%BC%80%E7%89%B9%E5%AE%9A%E6%96%87%E4%BB%B6%E5%A4%B9%E4%B8%AD%E7%9A%84%E7%89%B9%E5%AE%9A%E6%96%87%E4%BB%B6.png)
如何使用宏 Excel 打开特定文件夹中的特定文件。例如,我在单元格 A1 中输入路径“D:\My Data”,在 A2 中输入子目录“Kitchen”,最后在 A3 中输入文件名“Rack.xls”
感谢您
答案1
这将打开一个 Excel 工作簿 -
Sub arfan()
Dim myfile As String
myfile = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value
Application.Workbooks.Open Filename:=myfile
End Sub
但是,这要求 A1 以 结尾\
,A2 以 结尾\
,并且 A3 具有正确的文件扩展名
如果不是这样,只需改变我的文件到myfile = Cells(1, 1).Value & "\" & Cells(1, 2).Value & "\" & Cells(1, 3).Value
答案2
这是一个经过修改的示例,它允许您使用活动行中的多个单元格引用。在我的电子表格中,文件以单元格值之间的下划线命名,因此您将看到一些单元格引用之间的下划线。当您在该行中的任何单元格上被选中时,此功能有效。
Sub OpenXLSM()
Dim myfile As String
myfile = "C:\Folder\Folder\" & Cells(ActiveCell.Row, 2) & "\" & Cells(ActiveCell.Row, 11) & "_" & Cells(ActiveCell.Row, 12) & "_" & Cells(ActiveCell.Row, 1) & "*.xlsm"
Application.Workbooks.Open Filename:=myfile
End Sub