Lokal Ağ Üzerindeki PDF Dosyasını Açma

ssavas · 5 Mar 2025

Merhabalar, hayırlı ramazanlar diliyorum.
Ekli klasör yerel ağda bulunuyor. "\\10.16.32.140\Hasta_Haklari\PDF\"
Buton (btnPDF) yardımı ile userformda bilgileri bulunan nesneye ait pdf dosyasını görüntülemek istiyorum.
Kısaca açıklamak gerekirse; lokal ağda bulunan PDF ismindeki klasörde görüntülenmek istenen pdf dosyası, D.No-Kurum Adı ile adlandırılmış alt klasörde S.No-T.C Kimlik-Adı Soyadı olarak adlandırılmış pdf dosyasını görüntülemek istiyorum.
Formda farklı şekillerde pdf görüntüleme konuları açılmış fakat kendi isteğime uygun bir örnek bulamadıımdan konu açmak zorunda kaldım.
Yardımcı olacak arkadaşlara teşekkür ederim.

ExcelDepo · 6 Mar 2025

Hayırlı Ramazanlar.

Belirttiğiniz yerel ağdaki PDF dosyasını görüntülemek için, PDF dosyasının yolunu dinamik bir şekilde oluşturabilirsiniz.
Bunun için UserForm'a bir CommandButton ekleyin ve adını btnPDF yapın ve aşağıdaki kodları UserForm'a ekleyin..

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(19 satır)

Denersiniz.

İyi çalışmalar,

ssavas · 6 Mar 2025

Üstat teşekkür ederim.
Kodları şu şekilde düzenledim. Normalde dosya yolunu ThisWorkbook.Patholarak düzenleyince çalışıyor. Fakat yolu ağ olarak düzenleyince hata veriyor. Şimdilik bu sorunu aşamadım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(25 satır)

ExcelDepo · 6 Mar 2025

PDF sonrasında \ var yazdığınızda..
benim yazdığımda ise yok.
Gözüme takılan fark bu, kontrol edersiniz.

ssavas · 6 Mar 2025

Sorun aynen devam ediyor üstadım.

Kodu aşağıdaki şekli ile revize ettim. Hata mesajı vermedi fakat PDF dosyası bulunamadı uyarısını verdi.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(31 satır)

ExcelDepo · 6 Mar 2025

Nedenini bilemedim inanın.
Belki ağ izinleri ile ilgili bir sorun olabilir.

Ömer BARAN · 6 Mar 2025

SHELL ....... yerine ActiveWorkbook.FollowHyperlink pdfPath
kullanmayı dener misiniz?

ssavas · 6 Mar 2025

Teşekkür ederim Üstat.
Dosya yolunu basePath = ThisWorkbook.Path & "\PDF" olarak yapınca çalıştı, evden işyerindeki lokal ağa erişim olmadığı için ağ yolunda çalışıp çalışmadığını test edemedim.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(27 satır)

ExcelDepo · 6 Mar 2025

Sorun çözüldü mü şimdi?

ssavas · 6 Mar 2025

Ancak yarın test edebilirim üstat.
Evden işyerindeki ağa bağlanamadığım için sorunun çözülüp çözülemediği hususunda bişey diyemiyorum.

ssavas · 7 Mar 2025

Günaydınlar.
Maalesef If Dir(pdfPath) <> "" Then satırında Bad file name or number hatasını vermeye devam ediyor.

ssavas · Cumartesi - 21:58

İyi akşamlar, iyi ramazanlar.
Sorunun çözümüne yönelik evde farklı iki ip adresinde bulunan pc ve linux uydu alıcıya takılı olan usb ye pdf klasörünü koyarak paylaşım ayarlarını yaptım.
Her iki ip adresinden de hem Shell "explorer.exe """ & Pdf_Yolu & """", vbNormalFocus ile hem de ActiveWorkbook.FollowHyperlink Pdf_Yolu ile sonuç veriyor. İşyerindeki sunucudan neden sürekli olarak Bad file name or number hatası veriyor bilemedim.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(28 satır)

ExcelDepo · Cumartesi - 22:25

Yetki ile alakalıdır.
Sanırım soru bizim taraf için "çözülmüş" niteliktedir.

ssavas · Cumartesi - 22:32

Üstat normalde hali hazırda çalışan access vertitabanım da aynı sunucu üzerinde çalışıyor. Okuma, yazma, silme vb tüm yetkiler tanımlı.
Her hangi bir sorun yaşamıyorum.

	Lokal Ağ Üzerinde PDF Dosyası Açma ssavas Dün 22:18 Makro Soruları
	Harita Üzerindeki Belirli Alanları Boyama tugkan 9 Kas 2018 Makro Soruları
	UserForm Üzerindeki CommandButton Nesnelerini Renklendirme ExcelDepo 23 Kas 2018 Makro Soruları
	Userform Üzerindeki Textboxlara Veri Saydırmak mertatakan3838 8 Şub 2021 Makro Soruları
	TextBox Üzerindeki Yazan Değerleri Aktarma omerBey 26 Eyl 2024 Makro Soruları

Lokal Ağ Üzerindeki PDF Dosyasını Açma

Kısa Açıklama