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

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

  • Konuyu başlatan Konuyu başlatan ssavas
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ssavas

VIP Üye
Kullanıcı
Katılım
3 Ağu 2017
Mesajlar
247
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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.

Ekran görüntüsü 2025-03-05 115008.webp
 
Makro Yöntemi ile Sayfa Başlıkları Yazdırma
VBA Penceresindeki Sayfaları Sıralama
VBA Penceresindeki Sayfaları Sıralama

Ekli dosyalar

  • PDF.rar
    PDF.rar
    957.9 KB · Görüntüleme: 2
Çözüm
İ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.
Pc.webp


Uydu.webp


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
Tarihe göre sırala Oylamaya göre sırala
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,
 
Oyla 0 Olumsuz oyla
Ü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)

Ekran görüntüsü 2025-03-06 101358.webp

Ekran görüntüsü 2025-03-06 092427.webp
 
Oyla 0 Olumsuz oyla
PDF sonrasında \ var yazdığınızda..
benim yazdığımda ise yok.
Gözüme takılan fark bu, kontrol edersiniz.
 
Oyla 0 Olumsuz oyla
Sorun aynen devam ediyor üstadım.
Ekran görüntüsü 2025-03-06 133338.webp


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)
 
Oyla 0 Olumsuz oyla
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)
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Günaydınlar.
Maalesef If Dir(pdfPath) <> "" Then satırında Bad file name or number hatasını vermeye devam ediyor.
 
Oyla 0 Olumsuz oyla
İ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.
Pc.webp


Uydu.webp


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(28 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Ü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.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt