Masaüstü kısayol oluşturmak

[muratgunay48]

Arkadaşlar, benim makrolarım var, bir tane de excel açtım. Buton yaptım. makroları atadım. Buraya kadar sıkıntı yok.
Ancak o butonları (hani programları sağ tıklayıp masaüstüne gönder diyerek kısayol oluşturuyoeuz ya) masaüstüne kısayol yapılabiliyor mu. Yani hiç excel açmadan o butonu çalıştırmak yani makroyu çalıştırmak mümkün mü.
Şimdiden teşekkür ederim.

 

[Haluk]

.........
.......
Yani hiç excel açmadan o butonu çalıştırmak yani makroyu çalıştırmak mümkün mü.
....

Hayir.....ama bir "VBscript" dosyasiyle soz konusu Excel dosyasi gizli olarak acilip, ilgili makro calistirilabilir.

Ornek:

https://www.excel.web.tr/threads/vbs-kodlari-ile-excel-dosyasi-acma.173712/post-947261

.

 

[ASLAN7410]

Sayın Haluk Bey, adresini verdiğiniz linkte güzel bir çalışma yapmışsınız, ellerinize sağlık.

Starter VBscript dosyasının kodları içerisindeki aşağıdaki kodu masa üzerinde AHMET klasörü içinde Test.xlsm dosyasını göstermek için kod nasıl olmalı yardımcı olur musunuz?

MyWB = "C:\TestFolder\Test.xlsm"

 

[ASLAN7410]

Sayın Haluk Bey, aşağıdaki gibi yaptım hata verdi.

MyWB = ThisWorkbook.Path & "\AHMET"\Test.xlsm"

 

[ASLAN7410]

Sayın Haluk Bey, masaüstündeki klasördeki dosyanın yolunu nasıl düzenleyebilirim?

 

[Haluk]

Forumu 2 haftadir telefondan izledigim icin kod yazma imkanim yok.

Asagidaki linke bakiniz...

https://www.excel.web.tr/threads/vbs-dosyasinin-yolu.24841/

VBS ve Excel dosyalarinin her ikidi de masaustunde olacak !

.
.

 

[ASLAN7410]

Sayın Haluk Bey, ilginiz için çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[muratgunay48]

Hayir.....ama bir "VBscript" dosyasiyle soz konusu Excel dosyasi gizli olarak acilip, ilgili makro calistirilabilir.

Ornek:

https://www.excel.web.tr/threads/vbs-kodlari-ile-excel-dosyasi-acma.173712/post-947261

.

Haluk bey ilginize teşekkür ederim. Drive google linki çalışmıyor ama. Sizden rica etsem, bi bakabilir misiniz.

 

[Haluk]

Google Drive linki:

https://drive.google.com/file/d/1zb-joRbYpj3RCJgOzHe0XMmZuTewAwj-/view?usp=drivesdk

.

 

[muratgunay48]

Google Drive linki:

https://drive.google.com/file/d/1zb-joRbYpj3RCJgOzHe0XMmZuTewAwj-/view?usp=drivesdk

.

Çok teşekkür ederim. Şu an üzerinde çalışıyorum. Sizin kadar ileri düzeyde bilgim yok, macroları yeni yeni çözüyorum.
Hocam öncelikle şöyle bir hata alıyorum. (yalnız benim excel dosyamın uzantısı xlsx)
https://i.hizliresim.com/AOzl80.png

Benim Sizin starterde komutu xlsx olarak değiştirirsem makro çalışıyor ama bu sefer de şöyle bir hata veriyor.
https://i.hizliresim.com/Yd6GRZ.png Benim excel dosyamın uzantısını mı değiştirmem gerekiyor.

İkinci husus açılışta merhaba muratgunay48 diyor, onu demese, direk çalıştırsa. Sanırım o komut ikinci satır. Sildim , artık demiyor. Ama dursun lazım olur. Orada dursun ama çalışmasın [ ] içine mi alıyorduk.

Aynı şekilde Autpen makrosu çalıştı çıkmasa. Onu nasıl yapacağım. (hocam o emojiyi ben koymuyorum. dalga geçiyorum sanmayın lütfen. makro adını yazınca ortada o çıkıyor)

Hocam yazdıklarımı silmek istemedim, bilginiz olsun diye. Sanırım yaptım. Ama en sonunda şöyle bir (hata değil) bildirim çıkıyor. Sebebi nedir sizce. https://i.hizliresim.com/BOzBpD.png

Hocam son olarak. O starter yazılımına ekleyebiliyor muyuz. Tamam macroyu çalıştırdı, sonra da excel dosyasını kapatsın.

ÇOK AMA ÇOK TEŞEKKÜR EDERİM. ELİNİZE EMEĞİNİZE SAĞLIK.

 

[Haluk]

......
....
Hocam son olarak. O starter yazılımına ekleyebiliyor muyuz. Tamam macroyu çalıştırdı, sonra da excel dosyasını kapatsın.
.....

Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;

' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
         
' WScript.Echo "Merhaba, " & WshNetwork.UserName 

Set NewXL = CreateObject("Excel.Application")
    
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing

.

 

[muratgunay48]

Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;

' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
        
' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")
   
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing

.

Çok ama çok teşekkür ederim. Elinize emeğinize sağlık. Varolun.

 

[muratgunay48]

Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;

' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
        
' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")
   
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing

.

Hocam, teşekkürden ayrı yazmak istedim bu mesajı. Biliyorum çok vaktinizi aldım. VBS mükemmel değil, mükemmel ötesi çalışıyor. Açılan excel'i kapatıyor. zaten benim kullanım amacım onlarca excel dosyasını çalıştıracak bir makro yazmak idi. Sizden ricam excel dosyasının kapanması olmuştu. Sizde değil bende kusur var. Kusur derken, excel dosyalarında tarih olduğu için, kapatırken "YAPILAN DEĞİŞİKLİKLERİ KAYDEDEYİM Mİ" diyor. Mecbur "HAYIR" tıklıyorum. Tıklamadan excel kapanmıyor. Yani amacıma ulaşamamış oluyorum. Bunun için yapılabilecek bir şey var mı. Kapanırken "HAYIR" seçeneğini seçebilir mi. Yoksa çok şey mi istiyorum. Bilmediğim için. Tarihler de lazım çünkü.
Sabrınız ve yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki satırı ekleyip deneyiniz.

MyWB.Application.DisplayAlerts = False
MyWB.Close False

 

[muratgunay48]

Aşağıdaki satırı ekleyip deneyiniz.

MyWB.Application.DisplayAlerts = False
MyWB.Close False

Öncelikle ilgi ve alakanıza teşekkür ederim.

Bendeki yazılı olan kodun

MyWB.Close False

satırının üst satırına

MyWB.Application.DisplayAlerts = False

ekledim, yine sordu hocam. Olmadı yani. Size zahmet bakarsanız, hata mı yaptım acaba.

Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Peki bir de aşağıdaki satırı aynı şekilde ekleyip deneyiniz.

NewXL.Application.DisplayAlerts = False

 

[muratgunay48]

Gece işe gidince hemen deneyip sonucu bildireceğim.
Çok teşekkür ederim.

 

[muratgunay48]

Peki bir de aşağıdaki satırı aynı şekilde ekleyip deneyiniz.

NewXL.Application.DisplayAlerts = False

Hocam, Haluk beyin yazdığı kod şu şekildeyi

Set WshNetwork = WScript.CreateObject("WScript.Network")

' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")

Set MyWB = NewXL.workbooks.open("C:\Users\user\Desktop\KAPAKLAR\cmt.xlsm")

NewXL.Visible = True

NewXL.application.run "cmtk"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL = Nothing

Set WshNetwork = Nothing

Sonra

MyWB.Application.DisplayAlerts = False

ve sonra

NewXL.Application.DisplayAlerts = False

ekledim. Ama olmuyor. https://i.hizliresim.com/DOYrO1.png --- mutlaka soruyor.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

NewXL.Application.DisplayAlerts = False 
MyWB.Close False

 

[muratgunay48]

Aşağıdaki gibi deneyiniz.

NewXL.Application.DisplayAlerts = False
MyWB.Close False

NewXL.application.run "cmtk"

MyWB.Close False

ikisinin arasına ekleyeceğim değil mi.

Hocam affınıza sığınarak, bunu denemiştim zaten, o taktirde yerini yanlış yazdım.

Saygılarımla