Runtime Error 429 win7 office 2010 64 bit

[silentwolf]

Hi guys,

unfortunatelly I am also one who is getting this error when I try to access excel data in access.
However there are many things online regarding this issue.. but as I am not very familiar with this issues and fixing them I am hoping to get a good advice here.

As there are many things online regarding this issue I am not sure if it matters what system or office programm someone uses... so is there a certain site I can use
for exactly my windows and office programm?

Thanks for advice.

Albert

 

[xenou]

Help on this error is here:
https://support.microsoft.com/en-us/kb/828550

It seems like you could start with the advice there. Possibly post more details - particularly isolating and posting the line of code that the error occurs on.

 

[silentwolf]

Hi Xenou,

thanks I will look at this..

Here is what I am trying to do

Property Get ErsterInhalt(strDateiname As String) As Variant
    Dim appExcel As Excel.Application
    Dim wbkExcel As Excel.Workbook
    Dim wksExcel As Excel.Worksheet
[B]    
[COLOR=#ff8c00][I]    Set appExcel = GetObject(, "Excel.Application")[/I][/COLOR][/B]
    Set wbkExcel = appExcel.Workbooks.Open(CurrentProject.Path & "\" & strDateiname)
    Set wksExcel = wbkExcel.Worksheets("Tabelle1")
    
    ErsterInhalt = wksExcel.Range("A1").Value
    
End Property

this is the class Module
and the code stop on the yellow marked line

Sub TesteZugriffExcel()
    Dim clsExcel As clsErstesExcel
    
    Set clsExcel = New clsErstesExcel

    Debug.Print clsExcel.ErsterInhalt("MeineZahlen.xlsx")
End Sub

and above is the code in the module..

Thanks

Albert

 

[Norie]

Albert

Does it make any difference if you use CreateObject instead of GetObject?

Set appExcel = CreateObject("Excel.Application")

 

[silentwolf]

HI Norie,
yes it does .) it works now..
So why is that? And where is the problem or was the problem?

You know everything haha

 

[silentwolf]

Thanks Warren7771,
I will look into that!
Cheers