Compilar un Acceso Directo

[mrocf]

Crea un nuevo archivo excel que contenga -solamente- un botón que ejecute la siguiente macro:

Código:

Sub CreaAccesoDirecto()
Dim WS As Object
Dim AD As Object
Dim MiLnk As String
'Nombre que tendrá el acceso
MiLnk = "Acceso de Prueba"
Set WS = CreateObject("WScript.Shell")
With WS
  Set AD = .CreateShortCut(.SpecialFolders("Desktop") & "\" & MiLnk & ".lnk")
End With
With AD
'Path del destino del acceso directo
  .TargetPath = "\\servidor\achivos\archivo.xls"
  .Save
End With
Set AD = Nothing: Set WS = Nothing
MsgBox "Acceso Directo '" & MiLnk & "' creado."
End Sub

Esta macro creará un acceso directo en el escritorio llamado "Acceso de prueba". El destino del acceso es el indicado en la propia macro.

Quizás sea más sencillo que envíes este archivo vía mail.

Saludos, Cacho.