Как открыть определенный файл в определенной папке с помощью макроса Excel

Question

Как открыть определенный файл в определенной папке с помощью макроса Excel. Пример Я помещаю Путь в ячейку A1 «D:\My Data», помещаю подкаталог в A2 "Кухня", а в последний раз помещаю имя файла в A3 «Rack.xls».

Спасибо вам

Answer 1

Вот модифицированный пример, который позволяет вам использовать несколько ссылок на ячейки из активной строки. В моей электронной таблице файлы названы символами подчеркивания между значениями ячеек, поэтому вы увидите их между некоторыми ссылками на ячейки. Это работает, когда вы выделены в любой ячейке в строке.

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

Answer 2

Это откроет книгу 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 на myfile = Cells(1, 1).Value & "\" & Cells(1, 2).Value & "\" & Cells(1, 3).Value