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.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Nos vemos próximamente. Saludos.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

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.

Últimas publicaciones

Categorías

septiembre 2023
L M X J V S D
 123
45678910
11121314151617
18192021222324
252627282930  

Debates en el foro

Avatar
Control calculado
Avatar
Web Scraping con VBA

Contacto