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

Un comentario 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.