AccessTr.neT

İyi akşamlar.
arkadaşlar bir arşiv programı oluşturmaya çalışıyorum. burada form üzerinde bilgisayarımın herhangi bir yerinde bulunan word, excel, pdf v.b. dosyaları ön izleme yapmak istiyorum. aşağıdaki kod ile Excel dosyalarını ole nesnesi üzerinden görebiliyorum ama diğer formatlara bir türlü uyarlayamadım. ben yalnızca önizleme yapmak istiyorum.
şimdiden ilginize ve bilginize teşekkür ederim.

Private Sub Komut0_Click()



    OLE1.Class = "Excel.Sheet"    ' Set class name.

    ' Specify type of object.

    OLE1.OLETypeAllowed = acOLELinked

    ' Specify source file.

    OLE1.SourceDoc = "C:\Users\casper\Desktop\ekrem__metraj.xls"

    ' Specify data to create link to.

    OLE1.SourceItem = "R1C1:R5C5"

    ' Create linked object.

    OLE1.Action = acOLECreateLink

    ' Adjust control size.

    OLE1.SizeMode = acOLESizeZoom





End Sub

çözümü bulduk. dosyanıza bir webbrowser ekleyin. aşağıdaki kodu yazın bütün dosyalarınızı (word, excel, pdf, text, v.b.) önizleme yapabilirsiniz.

 Me.WebBrowser.navigate Me![DosyaYolu]