Crear un acceso directo a un archivo con VBA

Escrito por Administrador

4 de noviembre de 2022

Hoy vamos a ver cómo crear un acceso directo a un archivo de manera automática usando VBA. Para hacerlo más atractivo y útil, en lugar de configurar las rutas en el código, lo haremos desde un par de celdas habilitadas para tal fin.

Como vemos en la imagen anterior, la ubicación del archivo del que queremos crear un acceso directo se encuentra rellena en la celda C3 (C:\Original\archivo.xlsm). El destino del acceso directo y su nombre se definen en la celda C5  (C:\Copia\Acceso directo archivo.lnk).

A continuación, os muestro el código necesario.

Sub CreateShortcut()

'Definimos las variables

Dim oWsh As Object _
, oShortcut As Object

Dim sPathDesktop As String _
, sShortcut As String _
, sPathFile As String

'Nombre del archivo del que se va a crear el acceso directo

sPathFile = Cells(3, "C")

Set oWsh = CreateObject("WScript.Shell")
sPathDesktop = oWsh.SpecialFolders("Desktop")

'Nombre de la ubicacion y del acceso directo que se va a crear

sShortcut = Cells(5, "C")

'Creamos el acceso directo

Set oShortcut = oWsh.CreateShortcut(sShortcut)

With oShortcut

.TargetPath = sPathFile
.Save

End With

'Mostramos un mensaje

MsgBox "Acceso directo creado"

End Sub

El archivo original se encuentra en la ruta C:\Original\archivo.xlsm

Si ahora pulsamos el botón "Crear acceso directo" y buscamos en la carpeta C:\Copia, veremos el acceso directo al archivo de la siguiente manera,

Espero que este ejemplo te haya servido de utilidad para poder crear un acceso directo a un archivo usando VBA.

Nos vemos próximamente. Saludos.

Descarga el archivo del ejemplo

Por favor, ayúdame y haz clic en el anuncio. Solo te lleva un segundo 😉

 


0 comentarios

Enviar un comentario

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.

Quizá te interese,

Contacto