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
