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..
Son Düzenleme: 13/02/2012, 15:23, Düzenleyen: Bolu14Beyi.