VBScript Komut Dosyası (.vbs)

[muratgunay48]

Sayın hocalarım, bir WORD dosyasını, PDF dosyasına çevirmek için (toplu halde), yani bir klasörde WORD dosyaları var, başka bir klasöre PDF olarak dönüştürmek için VBScript Komut Dosyası (.vbs) yazılabilir mi? Yardımcı olabilir misiniz? Bir YouTube videosunda görmüştüm. Ama çalışmadı. Bu konuda daha önce de yadım. Çünkü iş yerinde kullanmak için gerekli.
Şimdiden teşekkür ederim. Saygılarımla.

 

[Haluk]

Aşağıdaki linkte yer alan VBScript ile, Windows'un dosya üzerinde sağ klikle çıkan menüden seçilecek "Send to" (Gönder) komutuyla Word, Excel, PowerPoint dosyalarını, bulundukları klasörde PDF'e çevirebilirsiniz....

VBScript to Convert Microsoft Office Files (Word, Excel, PowerPoint) to PDF

I spend a lot of my time working with Word documents and Excel spreadsheets - it’s in the nature of what I do. I frequently found that I need to create PDF copies of these files (to send out to clients) and eventually I grew tired of having to open the files one by one and select to save each as...

www.thoughtasylum.com

.

 

[muratgunay48]

Aşağıdaki linkte yer alan VBScript ile, Windows'un dosya üzerinde sağ klikle çıkan menüden seçilecek "Send to" (Gönder) komutuyla Word, Excel, PowerPoint dosyalarını, bulundukları klasörde PDF'e çevirebilirsiniz....

VBScript to Convert Microsoft Office Files (Word, Excel, PowerPoint) to PDF

I spend a lot of my time working with Word documents and Excel spreadsheets - it’s in the nature of what I do. I frequently found that I need to create PDF copies of these files (to send out to clients) and eventually I grew tired of having to open the files one by one and select to save each as...

www.thoughtasylum.com

.

Hocam, öncelikle çok teşekkür ederim. VBScript oluşturdum DOSYA sanırım doğru.
Yalnız affınıza sığınarak "Windows'un dosya üzerinde sağ klikle çıkan menüden seçilecek "Send to" " ifadesini anlamadım. Word üzerine sağ tıklayınca sadece belgeler seçeneği var. Bir de ZİP yap falan. Yardımcı olabilir misiniz.
Tekrar teşekkür ederim.
Saygılarımla.

 

[Haluk]

İlk önce oluşturduğunuz VBScript dosyasını, bilgisayarda bir klasöre yerleştirin ve daha sonra bu dosyanın kısa yolunu oluşturun.

Daha sonra, Windows Start-Başlat düğmesine basın ve oradaki arama kutusuna shell:sendto yazıp, Enter tuşuna basın.



Bahsettiğim "Send To" klasörü ekrana gelecektir. Bu pencerenin içine, daha önce oluşturduğunuz kısayol dosyasını sürükleyip, bırakın.

Örneğin, benim VBS dosyamın adı, aşağıda görüldüğü gibi ConvertPDF.





Pencereyi kapattıktan sonra, herhangibir Word, Excel, PowerPoint dosyasının üzerine sağ tıkladığınızda aşağıdaki resimde görülen menü ortaya çıkacak ve sağ tarafta sizin VBScript dosyasının adını göreceksiniz. Bunu tıkladığınız zaman, seçilen dosya veya dosyaların tümü bulundukları klasörde PDF'e çevrilecektir.




Dediğim gibi, aynı anda seçtiğiniz tüm dosyalar PDF'e çevrilebilir...... Başka bir yolu da; seçtiğiniz dosyaları tutup söz konusu VBS dosyasının üzerine sürükleyip, bırakmak olur. Bu şekilde de yapabilirsiniz, ama "Send To" klasörünü kullanmak, daha esnek tabii....

 

[muratgunay48]

İlk önce oluşturduğunuz VBScript dosyasını, bilgisayarda bir klasöre yerleştirin ve daha sonra bu dosyanın kısa yolunu oluşturun.

Daha sonra, Windows Start-Başlat düğmesine basın ve oradaki arama kutusuna shell:sendto yazıp, Enter tuşuna basın.

Ekli dosyayı görüntüle 237513

Bahsettiğim "Send To" klasörü ekrana gelecektir. Bu pencerenin içine, daha önce oluşturduğunuz kısayol dosyasını sürükleyip, bırakın.

Örneğin, benim VBS dosyamın adı, aşağıda görüldüğü gibi ConvertPDF.


Ekli dosyayı görüntüle 237514


Pencereyi kapattıktan sonra, herhangibir Word, Excel, PowerPoint dosyasının üzerine sağ tıkladığınızda aşağıdaki resimde görülen menü ortaya çıkacak ve sağ tarafta sizin VBScript dosyasının adını göreceksiniz. Bunu tıkladığınız zaman, seçilen dosya veya dosyaların tümü bulundukları klasörde PDF'e çevrilecektir.


Ekli dosyayı görüntüle 237516

Dediğim gibi, aynı anda seçtiğiniz tüm dosyalar PDF'e çevrilebilir...... Başka bir yolu da; seçtiğiniz dosyaları tutup söz konusu VBS dosyasının üzerine sürükleyip, bırakmak olur. Bu şekilde de yapabilirsiniz, ama "Send To" klasörünü kullanmak, daha esnek tabii....

Hocam, çok ama çok teşekkür ederim. Sonunda oldu. İnanın bu 1 saatlik işimi 3 dakikaya indirdi.
Elinize emeğinize sağlık.
Saygılarımla.
Varolun. İyi ki varsınız.

 

[muratgunay48]

Hocam, farklı bir klasöre gönderme yolu var mı?

 

[Haluk]

Script'in en sonundaki "GetFileExtension" isimli fonksiyonda, aşağıdaki satırı;

PathOfPDF = objFSO.GetParentFolderName(p_strOriginalFilePath) & "\"

bununla değiştirin;

PathOfPDF = "C:\TestFolder\"

PDF dosyaları C:\TestFolder klasörüne yerleştirilmiş olur......

.

 

[muratgunay48]

Script'in en sonundaki "GetFileExtension" isimli fonksiyonda, aşağıdaki satırı;

PathOfPDF = objFSO.GetParentFolderName(p_strOriginalFilePath) & "\"

bununla değiştirin;

PathOfPDF = "C:\TestFolder\"

PDF dosyaları C:\TestFolder klasörüne yerleştirilmiş olur......

.

Çok ama çok teşekkür ederim hocam. Sorunsuz, mükemmel çalışıyor.
Elinize emeğinize sağlık.
Saygılarımla.

 

[Haluk]

Eyvallah, kolay gelsin...

.

 

[muratgunay48]

Eyvallah, kolay gelsin...

.

Hocam merhaba, sizin yazdığınız bir kod vardı, teşekkür ederim. Hâlâ kullanıyorum.

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

Set NewXL = CreateObject("Excel.Application")

Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm")

NewXL.Visible = True

NewXL.application.run "rapor"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL = Nothing

Set WshNetwork = Nothing

Ama bu kodun yol olarak. Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm")
Değil de her masaüstünde çalışması için nasıl revize edebilirim. Ne denedimse olmadı.
Çok teşekkür ederim.

 

[Korhan Ayhan]

Deneyin bakalım çalışacak mı?

Set WshShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WshShell.SpecialFolders("Desktop") & "\RAPORLAR\"

Set NewXL = CreateObject("Excel.Application")
Set MyWB = NewXL.Workbooks.Open(DesktopPath & "MAKRO.xlsm")

NewXL.Visible = True
NewXL.application.run "rapor"

MyWB.Close False
NewXL.Quit

Set MyWB = Nothing
Set NewXL = Nothing
Set WshShell = Nothing