• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çözüldü "webbrowsere" Nesnesi İle PDF Görüntüleme Hakkında...

Y

yesimgurol

Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Merhabalar,

Forum da yapılmış olan örnek dosyalardan faydalanarak oluşturmaya çalıştığım dosyam üzerinde takıldığım bir sorunum oldu.:giggle:
Şöyle ki,
"Deneme" adlı bir klasörüm mevcut ve bu klasörün içerisinde "deneme.xls" excel dosyası ve "PDFLER" adında da bir klasör bulunuyor.
Excel sayfasında oluşturmuş olduğum userform üzerinde bir adet "webbrowsere" nesnesi ekledim ve belirtmiş olduğum dosya adresi ile pdf sayfasını görüntüleye bildim.:giggle:
Kodlar şu şekilde ;
Kod: 
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.Write "<HTML><Body><embed src=""C:\Users\Yesım\Desktop\deneme\PDFLER\deneme.pdf"" width=""100%"" height=""100%""/></Body></HTML>"
End Sub


"webbrowsere" nesnesi yanına da bir adet Listbox nesnesi ekledim. Bu listbox içerisinde de "PDFLER" klasörü içerisindeki pdf uzantılı dosyaları listelemeyi başardım.
Bu kodlar da şu şekilde ;
Kod: 
Private Sub CommandButton2_Click()
Dim evn As Object
ListBox1.Clear
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder("C:\Users\Yesım\Desktop\deneme\PDFLER")
For Each dosyalar In klasor.Files
If VBA.Right(dosyalar.Name, 3) = "pdf" Then
ListBox1.AddItem Replace(dosyalar.Name, ".pdf", "")
End If
Next
End Sub
Bu kısma kadar her şey güzel oldu fakat yapmak istediğim olay ise ;
Listbox içerisinde listelenen dosya adlarına tıkladığımda "webbrowsere" içerisinde görünsün.:giggle: .. ve hani belki "ileri / geri" butonu ile de dosyaları görüntülemek istiyorum.:giggle::giggle:
 

Ekli dosyalar

Dosyanızı incelemedim ama şöyle bir kod işinizi görecektir sanırım.

PHP: 
Private Sub ListBox1_Click()
    WebBrowser1.Navigate ListBox1
End Sub
 
Zeki Gürsoy' Alıntı:
Dosyanızı incelemedim ama şöyle bir kod işinizi görecektir sanırım.

PHP: 
Private Sub ListBox1_Click()
    WebBrowser1.Navigate ListBox1
End Sub
Genişletmek için tıkla ...

Zeki bey,
Öncelikle ilginize teşekkür ederim. Listbox1 de tıkladığımda "WebBrowser1" üzerinde yandex sayfası açılıyor :oops::unsure:
 
şunu bir dene

Kod: 
Private Sub ListBox1_Click()
    WebBrowser1.Navigate "C:\Users\Yesım\Desktop\deneme\PDFLER\" & ListBox1 & ".pdf"
End Sub
 
Halit Bey , merhabalar:giggle:

Çok teşekkür ederim, ilginiz için, Oldu evet(y)

Küçük bir ricam daha olsa :giggle:
WebBrowser1 altına 2 adet buton eklesem birine "ileri" diğerine "geri" yazsam listbox üzerinde ki dosyaları bu şeklide de görüntüleme imkanım olur mu ?
 
formunuza bir adet label1 ekleyiniz. bu kodu bir deneyin
Kod: 
Private Sub CommandButton3_Click()
If ListBox1.ListCount > Label1 Then
Label1 = Label1 + 1
MsgBox ListBox1.List(Label1)
End If
End Sub


Private Sub UserForm_Initialize()
Label1 = -1
End Sub
 
Kod: 
Private Sub CommandButton4_Click()
If Label1 > -1 Then
Label1 = Label1 - 1
MsgBox ListBox1.List(Label1)
End If
End Sub
 
Kodun son durumu
Kod: 
Private Sub CommandButton3_Click()
If ListBox1.ListCount-1> Label1 Then
Label1 = Label1 + 1
WebBrowser1.Navigate "C:\Users\Yesım\Desktop\deneme\PDFLER\" & ListBox1.List(Label1) & ".pdf"
End If
End Sub

Private Sub CommandButton4_Click()
If Label1 > -1 Then
Label1 = Label1 - 1
WebBrowser1.Navigate "C:\Users\Yesım\Desktop\deneme\PDFLER\" & ListBox1.List(Label1) & ".pdf"
End If
End Sub

Private Sub UserForm_Initialize()
Label1 = -1
End Sub
 
Halit bey,

6 nolu mesajınızdaki söylediğiniz şekilde uyguladım. Tıkladığımda label üzerinde sayılar ilerliyor ve açılacak sayfanın adının olduğu küçük bir pencere de çıkıyor ama dosya açılmıyor.:unsure:
 
8 nolu mesajınızı fark etmemişim:giggle:
Şİmdi oldu evet Halit bey.(y) İlginiz için çok teşekkür ederim.:giggle::giggle:
 
Teşekkürler iyi çalışmalar
 
Halit bey,
Çok özür dilerim:giggle::unsure:
Kodlar istediğim gibi ileri yada geri ilerliyor fakat gösterdiği gibi dosyalar açılmıyor:unsure:
Mesela bir dosya açıyorum. Sonrasında ileri butonuna bastığımda label daki numara ilerliyor fakat dosyayı açmıyor. İlk açtığımda dosya da kalıyor.
8 nolu mesajınız daki kodları kullandım.
 
nesnenin içini boşaltıp deneyiniz.

Rich (BB code): 
Private Sub CommandButton3_Click()
If ListBox1.ListCount-1> Label1 Then
Label1 = Label1 + 1

WebBrowser1.Navigate ""
WebBrowser1.Navigate "C:\Users\Yesım\Desktop\deneme\PDFLER\" & ListBox1.List(Label1) & ".pdf"
End If
End Sub

Private Sub CommandButton4_Click()
If Label1 > -1 Then
Label1 = Label1 - 1
WebBrowser1.Navigate ""
WebBrowser1.Navigate "C:\Users\Yesım\Desktop\deneme\PDFLER\" & ListBox1.List(Label1) & ".pdf"
End If
End Sub

Private Sub UserForm_Initialize()
Label1 = -1
End SubSub
 
Harikasınız, çok teşekkür ederim, ilginize(y):giggle:
Hayırlı akşamlar, Halit Bey...
 
Teşekkürler iyi akşamlar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst