EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API

Katılım
24 Ağustos 2004
Mesajlar
140
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API arıyorum. Çözümü var mıdır?


Saygılarımla,
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Yabancı bir siteden alınma bir örnek var.İşinize yarar diye ekliyorum incelersiniz
 
Katılım
24 Ağustos 2004
Mesajlar
140
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Güzel bir örnek, çok teşekükkür ederim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API arıyorum. Çözümü var mıdır?
Neden Api arıyorsunuz anlayamadım. Bu işlem windows script ile kolayca yapılabilir. Örneğin aşağıdaki kod aktif dosyanın masa üstünde kısayolunu oluşturacaktır.

[vb:1:fe62cd84b7]Sub Desktopkisayol()
Set kisayol = CreateObject("WScript.Shell")
yol = kisayol.SpecialFolders("Desktop")
Set deg = kisayol.CreateShortcut(yol & "\" & ActiveWorkbook.Name & ".lnk")
With deg
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set kisayol = Nothing
MsgBox "Kısayol oluşturuldu"
End Sub[/vb:1:fe62cd84b7]

Ayrıca Windows script ile ilgili detay bilgi EXCEL DERSANESİndeki aşağıdaki linktedir.

http://www.excel.web.tr/viewtopic.php?t=6203
 
Üst