Run time error 2147319779

• Remove From My Forums

• Question

• Hello, 

  I have one code given to me which working from Excel and sends mails with referenced Microsoft Outlook Object
  Library and Microsoft Outlook View Control . It was working fine for all But i am getting error reading the first line of code.

  Set OutlookApp = New Outlook.Application

  and when click on RUN below popup as an error:

  Microsoft Visual Basic Run Time Error 2147319779 (8002801d)

  I have gone through few forums and they suggested to run «RegSvr32 ScrRun.dll» from command prompt using admin account, i have tried but there another message coming which says

  «The module «ScrRun.dll» was loaded but the call to DllRegisterServer failed with
  error code 0x80004005″ For More Information about this problem, search online using the error code as a search term.

  I have «Windows 7 Professional SP1»

  I have followed the below and related article for help but there is no go, Please Help

  http://social.msdn.microsoft.com/Forums/en-US/b7d1a35f-3759-4217-91ba-e4416ac19d78/how-do-you-fix-error-code-0x80004005

  Kindly suggest, what all steps needs to be perform?

  Regards,

  Raman Katoch

  • Moved by

    Thursday, June 5, 2014 1:47 PM
    Move to more appropriate forum

`В настоящее время я использую следующий VBA для создания квартальных отчетов.

'Dim ppApp As PowerPoint.Application   
 Dim ppSlide As PowerPoint.Slide
 Dim shp As Object
 Dim myTextBox As Object
 Dim PPTTitle As String
 Dim PPTFooter As String
 Dim i As Integer
 Dim q As Integer
 Dim ChrtstoCopy As Integer
 Dim TblstoCopy As Integer
 Dim Firstslide As Boolean
 Dim CurrentSite As String
 Dim shortDeptName As String
 Sub CopytoPPT(Lbox_Exp, Lbox_Lis, Lbox_Rec)

 'ACTIVATED BY: Userform2 Command Button
 'PURPOSE: Copy the printareas for slides 1-5 in picture format and then 
  paste to a PPT slide.

 'Identify the criteria for the PPT slides
  CurrentSite = UserForm2.SiteTbox.Value
  ChrtstoCopy = Slide1_Sht.Range("S19").Value - 1
  TblstoCopy = Slide5_Sht.Range("D5").Value
  Firstslide = True
  If UserForm2.CheckBox1 = True Then
  blinded = " (Blinded)"
  Else
  blinded = " (Unblinded)"
  End If

 shortDeptName = 
 TgtSht.Range("SaveFileName").Find(What:=CurrentSite).Offset(0, 1).Text
 fileNameString = TgtSht.Range("SaveFolder") & TgtSht.Range("SavePrefix") & 
  " - " & shortDeptName

  'Open PPT application and existing blank PPT template file
   Set ppApp = New PowerPoint.Application
   ppApp.Visible = True 

VBA используется для вставки моих данных в графики, представленные в Power Point. Недавно мой рабочий стол обновился до 64-разрядной версии, и когда я пытаюсь запустить свой VBA для получения необходимой мне точки питания, появляется следующее сообщение об ошибке. Ошибка времени выполнения «-2147319779 (8002801d)»: библиотека ошибок автоматизации не зарегистрирована

Я попытался дополнительно изучить, что могло быть причиной этого, и я считаю, что это может быть связано с командой «Set ppApp = New PowerPoint.Application».

Когда я пытаюсь просто запустить макрос для PasteImgtoPPT, я получаю сообщение об ошибке времени выполнения «91»: объектная переменная или ошибка с неустановленной блочной переменной.

Я неделями пытался исправить этот VBA, но, похоже, не нашел решения. Любая помощь будет принята с благодарностью!

Скорее всего, у вас нет ссылки на Microsoft Powerpoint в проекте, поэтому попытка объявить переменную, которая ссылается на powerpoint, потерпит неудачу (ваш проект не знает, что это такое).

Чтобы рассказать об этом вашему проекту (сделать ссылку), перейдите в Инструменты >> Ссылки и найдите его в списке:

Проверьте это и нажмите «ОК», затем попробуйте снова запустить VBA.

Вы также можете подумать о позднем связывании переменных PowerPoint, чтобы не ссылаться на них:

 Dim ppApp As Object  
 Dim ppSlide As Object
 Set PPApp = CreateObject("PowerPoint.Application")
 Set ppSlide = PPApp.Slide

CreateObject загружает ссылку на Powerpoint.Application во время выполнения.