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

Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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

Zeki Gürsoy

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,321
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Dosyanızı incelemedim ama şöyle bir kod işinizi görecektir sanırım.

PHP: 
Private Sub ListBox1_Click()
    WebBrowser1.Navigate ListBox1
End Sub
 
Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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:
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
şunu bir dene

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

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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 ?
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod: 
Private Sub CommandButton4_Click()
If Label1 > -1 Then
Label1 = Label1 - 1
MsgBox ListBox1.List(Label1)
End If
End Sub
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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
 
Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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:
 
Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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:
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Teşekkürler iyi çalışmalar
 
Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
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.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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
 
Y

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
18-11-2024
Harikasınız, çok teşekkür ederim, ilginize(y):giggle:
Hayırlı akşamlar, Halit Bey...
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,767
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Teşekkürler iyi akşamlar
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst