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