Como abrir um arquivo específico em uma pasta específica com a macro excel

Question

Como abrir um arquivo específico em uma pasta específica com o macro excel. Exemplo eu coloquei Path na célula A1 "D: \ My Data", e coloquei o subdiretório em A2 "Kitchen" e por último coloquei o nome do arquivo em A3 "Rack.xls"

Obrigado

    

Answer 1

Isso abrirá uma pasta de trabalho do 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

Mas, isso requer que A1 termine com \ e A2 para terminar com \ e A3 para ter a extensão de arquivo correta

Se não for esse o caso, basta alterar myfile para myfile = Cells(1, 1).Value & "\" & Cells(1, 2).Value & "\" & Cells(1, 3).Value

    

Answer 2

Aqui está um exemplo modificado que permite usar várias referências de células da linha ativa. Na minha planilha, os arquivos são nomeados com sublinhados entre os valores da célula, portanto, você verá aqueles entre algumas das referências da célula. Isso funciona quando você está selecionado em qualquer célula da linha.

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