Todos los métodos VBA path para la ruta en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

En nuestros códigos de VBA tenemos que recurrir a indicar la ruta de los libros y archivos.

Todos los métodos VBA path para la ruta en Excel
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. Escribir el código de la macro...

 
  • RUTA DEL PROGRAMA EXCEL SIN NOMBRE DEL PROGRAMA NI EXTENSIÓN

Sub Demo1()

MsgBox Application.Path

End Sub

 
  • RUTA DEL PROGRAMA EXCEL CON NOMBRE DEL PROGRAMA Y EXTENSIÓN

Sub Demo2()

MsgBox Application.Path & "\Excel.exe"

End Sub

 
  • RUTA DEL LIBRO

Sub Demo3()

MsgBox ActiveWorkbook.Path

End Sub

O también,

Sub Demo4()

Filename = CurDir

MsgBox Filename

End Sub

 
  • RUTA DEL LIBRO CON SEPARADOR

Sub Demo5()

MsgBox ActiveWorkbook.Path & "\"

End Sub

O también,

Sub Demo6()

Filename = CurDir

MsgBox Filename & "\"

End Sub

 
  • RUTA COMPLETA CON NOMBRE LIBRO SIN EXTENSIÓN

Sub Demo7()

Filename = ActiveWorkbook.Name
Filename = Left(Filename, InStr(Filename, ".") - 1)

MsgBox ActiveWorkbook.Path & "\" & Filename

End Sub

ÑÑÑÑÑÑÑ
 
  • RUTA COMPLETA CON NOMBRE LIBRO Y EXTENSIÓN

Sub Demo8()

MsgBox ThisWorkbook.FullName

End Sub

 
  • NOMBRE DEL LIBRO SIN EXTENSIÓN

Sub Demo9()

Filename = ActiveWorkbook.Name
Filename = Left(Filename, InStr(Filename, ".") - 1)

MsgBox Filename

End Sub

 
  • EXTENSIÓN DEL LIBRO CON PUNTO

Sub Demo10()

Filename = ActiveWorkbook.Name
Filename = Right(Filename, InStr(Filename, ".") - 3)

MsgBox Filename

End Sub

 
  • EXTENSIÓN DEL LIBRO SIN PUNTO

Sub Demo11()

Filename = ActiveWorkbook.Name
Filename = Right(Filename, InStr(Filename, ".") - 4)

MsgBox Filename

End Sub

 
  • UNIDAD

Sub Demo12()

Filename = ActiveWorkbook.Path
Filename = Left(Filename, InStr(Filename, ":") + 1)

MsgBox Filename

End Sub

 
  • SEPARADOR

Sub Demo13()

MsgBox Application.PathSeparator

End Sub

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

2 comentarios en “Todos los métodos VBA path para la ruta en Excel

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.