![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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..