ç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.
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.