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, invitarte a compartir tus dudas en los comentarios o en el foro, y a darle clic a la publicidad de abajo para ayudarme a seguir creando contenido.

Nos vemos próximamente. Saludos.

Descarga el archivo del ejemplo

Por favor, haz clic en el anuncio y ayúdame a seguir creando contenido. 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.

Últimas publicaciones

Categorías

marzo 2023
L M X J V S D
 12345
6789101112
13141516171819
20212223242526
2728293031  

Debates en el foro

Avatar
Cuadro de texto

Contacto