Çalışmamda bazı dosyaları yerel ağdan pdf formatında açtırmam icap ediyor. Bu çalışmayı birden fazla bilgisayara kuruyorum. Ancak bir çok bilgisayarda pdf yi açan dosya (acroRd32) nın yolu ve sürümleri farklı olabiliyor. Bu yüzden diğer bilgisayarlara kurlum yaparken oraya özel işlem yapmak gerekiyor. Yani o bilgisayarda program kodlarında ona özel yol veya versiyon belirtiyorsunuz. Bunun yerine hangi pdf sürümü kurulu olursa olsun ilgili yerdeki pdf dosyasını standart bir komutla açtırabilirmiyiz? Bu olmuyorsa pdf yi açtıran dosyanın yolunu otomatik buldurup onun aracılığıyla ilgili yerdeki pdf yi açtırabilirmiyiz.
Pdf Yi Açtırma
Application.FollowHyperlink "dosya adresi"
bu komut işinize yarayabilir, yanilmiyorsam doğrudan varsayılan programla açıyor dosyayı.
Sayın Berduş yazdığınız kod ile ilgili klasör açılıyor. Şöyleki:
Application.FollowHyperlink "klasör adresi",vbnormalfocus
ile ilgili klasör açılıyor. Application.FollowHyperlink "dosya adresi",vbnormalopen
yazarsak(dosya ister jpg olsun ister pdf olsun) dosyayı açıyor. İşaret ettiğiniz komut ile tamamen deneme yanılma ile buldum. Sizin vesilenizle bir problem daha çözüldü. Teşekkür ederim. Ben kodu aşağıdaki gibi uyguladım. Application.FollowHyperlink "c:\proje\" & Liste15.Column(2, i) & ".jpg", vbnormalopen
Son Düzenleme: 27/08/2020, 22:49, Düzenleyen: aliyorga.
çözümü paylaştığınız için teşekkürler
iyi çalışmalar)
iyi çalışmalar)
(27/08/2020, 22:49)aliyorga yazdı: Sayın Berduş yazdığınız kod ile ilgili klasör açılıyor. Şöyleki:Merhaba.Alttaki kod ilede açılabili.
ile ilgili klasör açılıyor.Application.FollowHyperlink "klasör adresi",vbnormalfocus
yazarsak(dosya ister jpg olsun ister pdf olsun) dosyayı açıyor. İşaret ettiğiniz komut ile tamamen deneme yanılma ile buldum. Sizin vesilenizle bir problem daha çözüldü. Teşekkür ederim. Ben kodu aşağıdaki gibi uyguladım.Application.FollowHyperlink "dosya adresi",vbnormalopen
Application.FollowHyperlink "c:\proje\" & Liste15.Column(2, i) & ".jpg", vbnormalopen
CreateObject("Shell.Application").Open ("c:\proje\" & Liste15.Column(2, i) & ".jpg")
Evet bravo, denedim aynı işlemi yapıyor.
Konuyu Okuyanlar: 1 Ziyaretçi