Macro abrir archivo en la carpeta con el nombre que introduzca en una ventana

·

Si quieres algo mas conciso y menos aparatoso puedes usar esto

Sub Pori_y_Salo()
'
' abrir pori
Dim File As String
Dim sPath
sPath = ThisWorkbook.Path & "\"
Sheets("Total").Activate

sFile = InputBox("Escriba el nombre de la carpeta")
if sFile <>"" then sFile=sFile & "\"
Workbooks.Open Filename:=sPath & sFile & "Pori.xlsx"

end sub

·

Si escribes un nombre de carpeta la agregara a la ruta y si no escribes nada abrirá el fichero de la misma carpeta del libro.

Pon el mismo cuidado que tenías para poner un nombre de carpeta válido en la celda, no sé si en tu macro tienes tratamiento de errores.

Para abrir el cuadro de diálogo y seleccionar la carpeta destino (sPath) estas son las instrucciones:

Sub Pori_y_Salo()
'
' abrir pori
Dim File As String
Dim sPath
Dim Direc
Set Direc = Application.FileDialog(msoFileDialogFolderPicker)
'si se cancela la ventana el proceso se cancela también
If Direc.Show = 0 Then
sPath = ""
Exit Sub
End If
'guarda nombre del directorio seleccionado
sPath = Direc.SelectedItems(1) & "\"
'sPath = ThisWorkbook.Path & "\"
Sheets("Total").Activate
sFile = Range("A10").Value & "\"
Workbooks.Open Filename:=sPath & sFile & "Pori.xlsx"
End Sub

Si en la misma ventana eliges la carpeta final, es decir que tampoco necesitas el contenido de la celda A10, quita la linea donde se define sFile y la instrucción de apertura te quedaría así:

Workbooks.Open Filename:=sPath  & "Pori.xlsx"

Sdos y no olvides valorar la respuesta.

Elsa

PD) Para aprender más sobre macros puedes visitar mi sitio. Instrucciones, ejemplos para descargar y manuales :