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.
'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
Últimas publicaciones
0 comentarios