8002801d automation error - library not registered

Hi Guys,

I hope you can help me on this one. 

On my work laptop I am running Windows 7 64 bit, Office 2003. 

I mistakenly installed the Office 2013 preview (I wanted to just download it) and then as it had installed on my work laptop, I uninstalled it. 

Since doing that, I now cannot open Excel through VBA, I am getting an Automation Error: 8008201d - Library Not Registered when I run the following command:

Set objExcel = CreateObject("Excel.Application")

I have searched online about this extensively, and found one solution to the problem to re-register the .dll files. 

This is where I am having a problem however, I have tried re-registering several files, but the some will not register, I get another error saying it has loaded but failed to call on DllRegisterServer with Error Code 0x80004005. I am an administrator and have tried running cmd with administrator rights, to no avail. 

I then also updated to a copy of Office 2007 that I had, but having the exact same issue. 

Please help me in any way you can, it is crucial that I get this working and I would be grateful to anyone who can assist. 

Kind regards,

Sam Cackett
 

Question Info


Last updated October 22, 2018 Views 22,166 Applies to:

* Please try a lower page number.

* Please enter only numbers.

* Please try a lower page number.

* Please enter only numbers.

Hi,

Deleting the 1.8 means removing outdated references to Office from the System Registry.

To provide you with the proper resolution, provide more information as to what happened when you attempted to perform the resolution found on this thread.

Regards.

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

I have tried this and come up unsuccessful.  When you expand a couple of the folders - what/how does this benefit the final solution of deleting the 1.8?

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Saikat,

You should not have deleted the full key.  The issue seen by the original poster (OP) was regarding uninstalled versions of the Excel interop libraries.  Instead of deleting the entire key, you just need to remove the key for the versions no longer installed on the system.  Hence his instruction to delete "1.8" and leave the "1.7" or other version in the registry.

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Thank you very much for your post. I spent a full day re-installing Excel, registering .dlls, etc. all no help. I finally found your suggestion and with two lines of code solved my problem with late binding.

Thanks again.

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Hello,

I have this issue. But have diferent versions of office applications installed.

Because of this, the registry solution is not working.

I also do not find the msoutl.olb file were my outlook reference points.

For me and after several searches, the only solution was to use Late binding.

Heres a peace of code that is working.

I hoe that helps others:

        

  'Late biding solution
  Dim olApp As Object
  Dim olMail As Object
  Const olMailItem As Long = 0

  Set olApp = CreateObject("Outlook.Application")
  Set olMail = olApp.CreateItem(olMailItem)


  olMail.To = "*** Email address is removed for privacy ***"
  olMail.Subject = "Test"
  olMail.Body = "This is the body of the email"
  olMail.Send

1 person was helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Thank you!!! this has worked for me too :D

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Years later and Running WIndows 10 - and this solution still worked.  Many thanks.  You should reboot the PC after doing this as well.

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Hello,

I think I have similar problem but still exist.

Difference is:

Win 7/Office 2010

and the error is in line:

Set appWD = CreateObject("Word.Application.8")

 thx for all help

2 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Thank you, this helped!

I have 'Classes' under 'HKEY_LOCAL_MACHINE' --> 'SOFTWARE' and under Classes I had 'TypeLib' (Windows 7 / Office 2010).

2 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

It works!! Thank you so much! :)

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

* Please try a lower page number.

* Please enter only numbers.

* Please try a lower page number.

* Please enter only numbers.