Masa üstü klasörden pdf dosyasının görüntüsü Excele alma

[ThEeNCi]

Merhaba
Masa üstü klasörden A1 hücresindeki veri ile dosyaların adını eşitleyerek excele pdf görütüsü alınabilirmi?
Dosya içinde de anlattım umarım istediğim şeyi anlatabildim.
İlgilenen herkese şimdiden çok teşekkür ederim.

 

[ThEeNCi]

Gören olmadı sanırım

 

[esnekplastik]

PDF to image, button with image inport etsen*

Resime çevirip buton eklesen daha kolay olmaz mı?

Toplu çevirebilirsin bir program yardımı ile.

 

[leumruk]

Selamlar,
Örneği inceleyiniz. Dosya yolunu kendinize göre düzenleyiniz.

Sub Makro1()
For Each rsm In ActiveSheet.Pictures
    If Not Intersect(rsm.TopLeftCell, Range("A4")) Is Nothing Then
        rsm.Delete
    End If
Next
Range("A4").Select
'yol = ThisWorkbook.Path & "\"
yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\KlasörAdı\"
dosya = Dir(yol & [a1] & "~*.pdf")
If dosya <> "" Then
    ActiveSheet.OLEObjects.Add(Filename:=yol & dosya, Link:=False, DisplayAsIcon:=False).Select
Else
MsgBox "Aradığınız isimde dosya bulunmamaktadır.", vbOKOnly, "l e u m r u k"
End If
End Sub

 

[ThEeNCi]

Çok teşekkür ederim dosya çağırma tam istediğim gibi ama dosyanın içereğini resim yada içerğin götüntülenmesi olarak getirebilirmi ?

 

[leumruk]

Çok teşekkür ederim dosya çağırma tam istediğim gibi ama dosyanın içereğini resim yada içerğin götüntülenmesi olarak getirebilirmi ?

İstediğinizi tam olarak anlayamadım. Eğer dosyanın içeriğini görmek istiyorsanız gelen resme çift tıklamanız yeterli.

 

[ThEeNCi]

Çift tıklayınca dışarıda açıyor görüntüyü ben excel sayfasında açabilirmi diye sormuştum.Teşekkürler

 

[ThEeNCi]

Görüntü alma olmaz ise yüklenen dosyayı mail atabilirmiyiz ? Teşekkürler.

 

[leumruk]

Çift tıklayınca dışarıda açıyor görüntüyü ben excel sayfasında açabilirmi diye sormuştum.Teşekkürler

Dosyanıza webbrowser nesnesi ekleyerek yapabilirsiniz. Forumda bununla ilgili bir örnek yapmıştım, bulunca linkini ekleyeceğim.

 

[ThEeNCi]

İlginiz için çok teşekkür ederim.
Bekliyorum iyi akşamlar.

 

[leumruk]

Dosyanıza webbrowser nesnesi ekleyerek yapabilirsiniz. Forumda bununla ilgili bir örnek yapmıştım, bulunca linkini ekleyeceğim.

Eklediğim linkteki 7. mesajı inceleyiniz.
https://www.excel.web.tr/threads/excel-sayfa-icinde-word-pdf-dosya-goesterme.171692/

 

[ThEeNCi]

Böyle bir hata verdi. Yüklenen dosya mail atılabilir mi ?

 

[leumruk]

Mail gönderme ile ilgili linki inceleyiniz.
Mail göndermek için dosyayı excele almanıza gerek yok, adresi girmeniz yeterli.
Aldığınız hatanın nedeni ve çözümleri de az önce verdiğim linkte var.
https://www.excel.web.tr/threads/belirtilen-zamanda-mail-goenderme-excel-vba.177694/

 

[bravo64]

Sayın Leumruk, günlerdir aradığım kodu yazmışsınız süpersiniz..
Acaba butona bastığımızda direkt pdf olarak açmak istesek nasıl düzenlerdik acaba kodu??Yani excele yüklemek yerine acrobat olarak açılsa??

 

[leumruk]

Sayın Leumruk, günlerdir aradığım kodu yazmışsınız süpersiniz..
Acaba butona bastığımızda direkt pdf olarak açmak istesek nasıl düzenlerdik acaba kodu??Yani excele yüklemek yerine acrobat olarak açılsa??

CreateObject(Shell.Application). Open (yol) Adresi kendinize göre düzenleyiniz.

 

[bravo64]

Üstad çok teşekkür ederim..Windows ta sorun yok ama mac excelde Shell.Application satırında hata veriyor..Sanırım mac de activex olmadığından diye düşünüyorum.. Sizin bir yönteminiz olabilir mi?

 

[izcik]

Selamlar,
Örneği inceleyiniz. Dosya yolunu kendinize göre düzenleyiniz.

Sub Makro1()
For Each rsm In ActiveSheet.Pictures
    If Not Intersect(rsm.TopLeftCell, Range("A4")) Is Nothing Then
        rsm.Delete
    End If
Next
Range("A4").Select
'yol = ThisWorkbook.Path & "\"
yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\KlasörAdı\"
dosya = Dir(yol & [a1] & "~*.pdf")
If dosya <> "" Then
    ActiveSheet.OLEObjects.Add(Filename:=yol & dosya, Link:=False, DisplayAsIcon:=False).Select
Else
MsgBox "Aradığınız isimde dosya bulunmamaktadır.", vbOKOnly, "l e u m r u k"
End If
End Sub

Sayın uzmanım merhaba
masaüstünde deneme isimli klasör oluşturdum.
Kodlardaki KlasörAdı yazılı yeri Deneme olarak değiştirdim.
Deneme klasörünün içine de bir pdf dosyası koydum.
Fakat bir şey olmadı.
Pdf ye de bir isim mi vermemiz gerekiyor?
Neyi hatalı yapmış olabilirim?
Saygılar

 

[leumruk]

Sayın uzmanım merhaba
masaüstünde deneme isimli klasör oluşturdum.
Kodlardaki KlasörAdı yazılı yeri Deneme olarak değiştirdim.
Deneme klasörünün içine de bir pdf dosyası koydum.
Fakat bir şey olmadı.
Pdf ye de bir isim mi vermemiz gerekiyor?
Neyi hatalı yapmış olabilirim?
Saygılar

dosya = Dir(yol & [a1] & "~*.pdf") Örnek dosyada a1 hücresinde dosya adı var. A1 hücresine dosyanızın adını yazınız.

 

[leumruk]

Üstad çok teşekkür ederim..Windows ta sorun yok ama mac excelde Shell.Application satırında hata veriyor..Sanırım mac de activex olmadığından diye düşünüyorum.. Sizin bir yönteminiz olabilir mi?

Mac için benim bir çözümüm yok maalesef.

 

[bravo64]

Çok teşekkür ederim sayın Leumruk. Çok değerli yardımınız oldu sağolun..