+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel,Exe sürüm 1.6 hatası (/konu-excel-exe-surum-1-6-hatasi.html)
Excel,Exe sürüm 1.6 hatası - hknct - 17/02/2017
office programı yüklü olmayan bir bilgisayarda accessde yaptığım programı çıalıştırmak istediğimde " .... veritabanınız veya projeniz 'EXCEL.EXE' sürüm 1.6. dosyasına eksik veya hatalı başvuru içeriyor" şeklinde hata veriyor.
Access 2007 Türkçe RunTime kurdum. ama hala aynı hatayı alıyorum. bunu nasıl aşabilirim.
Cvp: Excel,exe Sürüm 1.6 Hatası - atoz112 - 17/02/2017
sayın hknct,
bahsettiğiniz talebinize yönelik olarak;
bir ihtimal,
Microsoft Excel XX.X Object Library referansının işaretlenmemiş olması söz konusu olabilir.
ya da,excel kullanımına ihtiyacınız varsa,
referansı;gerçek Excel yükleme klasörüne kurmanız gerekebilir.
bilginize...iyi çalışmalar,saygılar.
Cvp: Excel,Exe sürüm 1.6 hatası - hknct - 17/02/2017
söylediğiniz eklentileri işaretli, ben bunu microsoft ürünleri olmayan bilgisayarlarda kullanacağım. bu nedenle buna çözüm nasıl olabilir. kullanacağımız bilgisayarlarda libreoffice programı kullanılıyor.
Cvp: Excel,Exe sürüm 1.6 hatası - hknct - 18/02/2017
veya bu eklentiyi office olup olmamasına göre aktif veya pasif yapabiir miyiz?
Cvp: Excel,Exe sürüm 1.6 hatası - ozanakkaya - 19/02/2017
Merhaba,
aşağıdaki kodu modüle ekle,
Function ReferenceFromFile(strFileName As String) As Boolean
Dim ref As Reference
On Error GoTo Error_ReferenceFromFile
References.AddFromFile (strFileName)
ReferenceFromFile = True
Exit_ReferenceFromFile:
Exit Function
Error_ReferenceFromFile:
ReferenceFromFile = False
Resume Exit_ReferenceFromFile
End Function
Function RefExists(RefName)
Dim ref As Object
RefExists = False
For Each ref In References
If ref.Name = RefName Then
RefExists = True
End If
Next
End Function
Uygulamanın ilk açıldığı form olan "Frm_Kullanici_Giris" isimli formun açıldığında olayına
If RefExists("Excel") = False Then
ReferenceFromFile CurrentProject.Path & "\EXCEL.EXE"
MsgBox ("Referanslar eklendi")
Else
MsgBox ("Referanslar zaten var")
End IfKodu ekle, test amacıyla eklediğim mesaj kutuları kaldırılabilir.
Son olarak, uygulamayı oluşturduğunuz ofis sürümüne ait "EXCEL.EXE" isimli dosyayı (muhtemelen "C:\Program Files\Microsoft Office\Office12" dizininde ) kopyalayıp uygulama ile aynı dizine yapıştırın.
excele aktarma butonunda oluşturulan Excel belgesini açtırmaya çalışacağından hata verebilir. Bu kısmın excel'in kurulu olup olmamasına göre çalıştırılması gerekli.
Cvp: Excel,Exe sürüm 1.6 hatası - ozanakkaya - 19/02/2017
Bu arada, EXCEL.EXE isimli dosya ofis olmayan bilgisayarda çalıştırılınca ne olacağını çok merak ediyorum.
Ayrıca belirtirseniz memnun olurum.