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.
Excel,Exe sürüm 1.6 hatası
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.
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.
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.
Son Düzenleme: 18/02/2017, 11:11, Düzenleyen: hknct.
veya bu eklentiyi office olup olmamasına göre aktif veya pasif yapabiir miyiz?
Merhaba,
aşağıdaki kodu modüle ekle,
Uygulamanın ilk açıldığı form olan "Frm_Kullanici_Giris" isimli formun açıldığında olayına
Kodu 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.
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 If
Kodu 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.
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.
Ayrıca belirtirseniz memnun olurum.
Konuyu Okuyanlar: 1 Ziyaretçi