Ç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.
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
çözümü paylaştığınız için teşekkürler
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:
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
Merhaba.Alttaki kod ilede açılabili.
CreateObject("Shell.Application").Open ("c:\proje\" & Liste15.Column(2, i) & ".jpg")
Evet bravo, denedim aynı işlemi yapıyor.