AccessTr.neT

çok basit belki ama yolunu vereceğim bir Excel dosyasını açtırmak istiyorum. hepsi bu. forumda 1-2 örnek buldum ancak hata verdi. declare function filan vardı. yapamadım.

Aşağıdaki konuyu incelediniz mi?
https://accesstr.net/konu-form-uzerinde-...apmak.html

gördüm hocam ama ben form içinde açmak istemiyorum. benimki daha basit.. yolunu vereceğim ve Excel uygulamasını açtıracağım. Sanki dosyanın üzerine tıklamış gibi yani.. şimdiden teşekkürler..

sorunu hallettim.. birazdan yazarım forumda da bulunsun..

---

Prosedure AcExcelde ()
Dim exceldosyasi As Object
dim Klasor as string
Set exceldosyasi = CreateObject("Excel.Application")
.......
Klasor = CurrentProject.Path & "\Dosyaismi.xls"

With exceldosyasi
.Visible = True
.Workbooks.Open Klasor
End With
End Sub

Forumda bulunan kodlar üzerinde düzenleme yaptım. dosya açılıyor fakat görünmüyormuş. Sebebi de .visible=True olmadığından.. Onu da bi yabancı siteden buldum.. Bizim sitemizde de olsun istedim.. Herkese kolay gelsin..

eğer hata verirse Excel referanslara eklenmediğinden olabilir. Bu durumda şunu deneyiniz.: Vba Code Penceresinden Menu > Tools > References -- pencerisnden Avaible References altındaki işaretli kutucuklara > Microsoft Excel .... Object Library referansını ekleyin.. bu sorunu halleder.. ;)

Çözüm ve paylaşım için teşekkürler.