Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, cria um atalho na área de trabalho

 Sub CriarAtalho()
Dim Atalho As String, Pasta As String
Dim LocalExcel As String, Livro As String

Pasta = "C:\WINDOWS\Desktop\"
Atalho = Pasta & ActiveWorkbook.Name & ".url"

LocalExcel = Application.Path & "\Excel.exe"
Livro = ActiveWorkbook.FullName

On Error GoTo Erro

Open Atalho For Output As #1
    Print #1, "[InternetShortcut]" & vbCrLf & "URL = " & Livro
    Print #1, "IconIndex=1" & vbCrLf & "IconFile=" & LocalExcel
Close #1

MsgBox "Foi criado o atalho em " & Atalho & " de " & Livro, vbInformation, "Atalhos"

Exit Sub
Erro:
MsgBox Err.Number & " - " & Err.Description, vbCritical

End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel