☰

如何使用宏 Excel 打开特定文件夹中的特定文件

tag-icon • tag-icon microsoft-excel vba
如何使用宏 Excel 打开特定文件夹中的特定文件

如何使用宏 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

相关内容