Excel sayfa içinde word- PDF dosya gösterme

[mehmetaltin]

Arkadaşlar Excel 1 sayfa içinde 1 yada daha fazla sayfalı word- yada PDF dosyasını nasıl okunacak şekilde gosterebilirim.

 

[enesyildiz]

bende merak ettim. takip ediyorum

 

[Haluk]

Bilgisayarınızda lisanslı Adobe professional varsa (Adobe Reader değil....), aşağıdaki VBA kodlarıyla PDF dokümanlarını Excel'e aktarabilirsiniz.

Eğer bu program yoksa, ücretli hizmet alarak yapabilirsiniz.

http://www.vbaexpress.com/kb/getarticle.php?kb_id=1101

.

 

[mehmetaltin]

Hocam ücretsiz kendim sürekli kullanabilecegim bir yol yokmu

 

[Haluk]

Maalesef yok ....

Eğer her zaman buna gerek duymuyorsanız ve/veya şu anda çok acil bir durum varsa, PDF dokümanı bana gönderin.... sizin için birşeyler yapmaya çalışayım.

.

 

[mehmetaltin]

Teşekkürler hocam acil değil ben öğretmen dosyalarım için sürekli değişen bu uygulamayı yapmak istiyorum

 

[leumruk]

Selamlar,
Eğer sorunuzu doğru anladıysam isteğinizi "webbrowser nesnesi" ile gerçekleştirebilirsiniz.
Bir örnek dosya ekliyorum.
Uyarılar:
1) Bilgisayarınızın register ayarları uygun değilse Word dosyasını harici açabilir. Bunun için bir reg uzantılı dosya ekleyeceğim. Onu çalıştırdığınızda Word dosyası nesne içinde açılacaktır.
2) Word dosyası açmak istediğinizde gelen ekranda Aç seçeneğini seçmelisiniz.
3) Word dosyasını Excelin kendi özelliği ile de açabilirsiniz:
EKLE>Nesne>Dosyadan Oluştur seçeneği ile excel sayfasına Word nesnesi ekleyebilirsiniz.

Eklediğim örnek Webbrowser nesnesi ile yapılmıştır:

Sub Dosya_Ac()
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Filters.Clear
.Title = "Dosya Seçiniz..."
.AllowMultiSelect = False
.Filters.Add "Word-Pdf Dosyaları", "*.doc*,*.PDF*"
If .Show <> -1 Then
Exit Sub
End If
yol = .SelectedItems(1)
End With
Sheets(1).WebBrowser1.Navigate (yol)
End Sub

 

[mehmetaltin]

Teşekkürler tam aradığım buydu hocam..

 

[mehmetaltin]

Hocam ben farklı dosyalar da eklemek istiyorum Sayfa 1 2 'i kopyalayıp çoğaltmam yeterli mi?

 

[leumruk]

Kodun şu satırını altta verdiğimle değiştirin. Sonrasında Sayfa üzerine sağ tıklayıp "Taşı ve Kopyala" seçeneğinden "Kopyala"yı seçin. Bu şekilde istediğiniz kadar sayfa ekleyebilirsiniz. Her sayfada aynı kod çalışır.

Sheets(1).WebBrowser1.Navigate (yol)

ActiveSheet.WebBrowser1.Navigate (yol)

 

[mehmetaltin]

Hocam bir de PDF dosya ekleyince Excel dosyasını kapatıp açınca görüntülenme kısmı kuculuyor.Bunu nasıl cozebilirim.

 

[leumruk]

Hocam bir de PDF dosya ekleyince Excel dosyasını kapatıp açınca görüntülenme kısmı kuculuyor.Bunu nasıl cozebilirim.

Ben de öyle bir sorun olmadı. Eğer sorun webbrowser nesnesi ile ilgiliyse, aşağıdaki kodu kullanarak nesnenin boyutunu kontrol edebilirsiniz. Eklediğim makroyu bir butona atayın ya da sayfa "activate" kodlarıyla çalıştırın.

Sub Nesne_Boyut()
ActiveSheet.WebBrowser1.Width = 800
ActiveSheet.WebBrowser1.Height = 500
End Sub

 

[mehmetaltin]

Hocam verdiğiniz kodları ekleyen edin.

 

[mehmetaltin]

Ekleyemedim

 

[leumruk]

Ekleyemedim

Butona atadım.

 

[mehmetaltin]

Teşekkürler..

 

[Tevfik_Kursun]

Sayın Mustafa Hocam,
Pdf dosya ile resimdeki satırda hata veriyor. Nedeni ne olabilir?
Saygılarımla

 

[leumruk]

Bende hata vermediği için kesin bir şey söyleyemiyorum. Eğer Word dosyasında hata vermeyip sadece pdf dosyasında hata veriyorsa belki dosya ile ilgili bir sıkıntı vardır. Başka bir pdf dosyasında daha deneyiniz.

 

[Tevfik_Kursun]

Sayın Mustafa Hocam,
excel dosyaya word nesnesini yükledim, hem word hem de pdf te aynı satırda 438 nolu hata veriyor.
Saygılarımla

 

[leumruk]

Bazı Office sürümlerinde webbrowser nesnesi tanınmıyor. Muhtemelen eklediğim örnekteki webbrowser nesnesi sizin bilgisayarda görünmüyor ve nesne yok hatası alıyorsunuz. Ben kesin çözüm olarak ofgice 2010 32 bit kurup bütün sorunlardan kurtuldum. Ama ben uğraşırım diyorsanız webbrowser nesnesinin nasıl tanıtılacağı konusunda araştırma yapmanız gerekiyor. Kullandığım bilgisayarlarda bu sorun olmadığı için deneyip önerebileceğim bir çözüm yok.