Automation Error 2147417851
Contents |
soon) Ruby (coming soon) Getting Started Code Samples Resources Patterns and Practices App Registration Tool Events Podcasts Training API Sandbox Videos vb error 2147417851 Documentation Office Add-ins Office Add-in Availability Office Add-ins Changelog Microsoft Graph 2147417851 automation error word API Office 365 Connectors Office 365 REST APIs SharePoint Add-ins Office UI Fabric Submit to the Office automation error server threw exception vba Store All Documentation https://www.yammer.com/ http://feeds.feedburner.com/office/fmNx Ask a question Quick access Forums home Browse forums users FAQ Search related threads Remove From My Forums Answered by: run-time error '-2147417851 run-time error '-2147417851 (80010105)' (80010105)' Microsoft Office for Developers > Access for Developers Question 0 Sign in to vote I have an MS Access file that opens a word template, populates it with data and saves it to a local share. The following code produces the above error: Dim WordObj As Word.Application Set WordObj = CreateObject("Word.Application") WordObj.Visible
Excel Vba The Server Threw An Exception
= True WordObj.Activate WordObj.ShowMe WordObj.WindowState = wdWindowStateMaximize WordObj.Documents.Add(GetTemplatePath(strDocPath)) WordObj.ActiveDocument.SaveAs FileName:=FullDocName, FileFormat:=12 //this line produces the above error I have tried many combinations of early / late binding with the word application object and always get the same result. The word document will open and the functions which insert text will run successfully, but the document will not be saved and if any further editing is attempted Word will crash. I suspect that code isnt the problem; I have another identical workstation that is able to open and save the output document. What external factors could cause this? Saturday, February 19, 2011 11:12 PM Reply | Quote Answers 0 Sign in to vote What version of office do you have installed on your PC? You can specify the version of excel you are creating the object. From : Set WordObj = CreateObject("Word.Application") to : Set WordObj = CreateObject("Word.Application.12") You also may want to try using the following WordObj.ActiveDocument.SaveAs FileName:=FullDocName, FileFormat:=acFileFormatAccess2007 Check the menu
Unanswered Topics Wrox Programmer Forums > Microsoft Office > Excel VBA > Excel VBA Run time error -2147417851 (80010105) Automation error The server threw an exception User
Automation Error The Server Threw An Exception Excel
Name Remember Me? Password Reminder Password Register Register | FAQ | Members List | Calendar | Today's Posts | Search Excel VBA Discuss using VBA for Excel programming. Search Forums Show Threads Show Posts Advanced Search Find All Thanked Posts Go to Page... Welcome to the p2p.wrox.com Forums. You are currently viewing the Excel VBA section of the Wrox Programmer https://social.msdn.microsoft.com/Forums/office/en-US/1ffe22e9-df8f-4208-9419-d5df9f203aaa/runtime-error-2147417851-80010105?forum=accessdev to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely http://p2p.wrox.com/excel-vba/90385-run-time-error-2147417851-80010105-automation-error-server-threw-exception.html free . Thread Tools Display Modes #1 (permalink) June 21st, 2013, 03:20 PM David1875 Registered User Points: 8, Level: 1 Activity: 0% Join Date: Jun 2013 Posts: 2 Thanks: 0 Thanked 0 Times in 0 Posts Run time error -2147417851 (80010105) Automation error The server threw an exception Hi, I am running the code below in Excel VBA. The main idea of the code is to read some info from excel and create a power point file. I appreciate your help, thanks Sub Macro1() Dim XLApp As Excel.Application Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim Title(10) As Variant, Connector(10) As String, Chart_Names(10) As Variant, i As Integer Set PPApp = CreateObject("Powerpoint.Application") Set PPPres = PPApp.Presentations.Add For i = 1 To 8 Title(i) = Worksheets("Sheet1").Cells(4 + i, 19) Chart_Names(i) = Worksheets("Sheet1").Cells(4 + i, 20) Connector(i) = Worksheets("Sheet1").Cells(4 + i, 21) Next i For i = 1 To 8 If (i < 4 Or i = 5) Then Set PPSlide = PPPres.Slides.Add(i, ppLayoutTitleOnly) PPSlide.Select ' Reference active slide Set PPSlide = PPPres.Slides _ (PPApp.ActiveWindow.Selection.SlideRange
Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Ask a Question Ask for Help Receive Real-Time Help Create a Freelance Project Hire for a https://www.experts-exchange.com/questions/24923960/VBA-Run-Time-Error-2147417851-80010105-Automation-Error-Server-Threw-an-Exception.html Full Time Job Ways to Get Help Expand Search Submit Close Search Login Join Today Products BackProducts Gigs Live Careers Vendor Services Groups Website Testing Store Headlines Experts Exchange > Questions > VBA Run Time Error "-2147417851" (80010105) Automation Error, Server Threw an Exception Want to Advertise Here? Solved VBA Run Time Error "-2147417851" (80010105) Automation Error, Server Threw an Exception Posted on 2009-11-23 automation error MS Access Visual Basic Classic 1 Verified Solution 7 Comments 1,865 Views Last Modified: 2013-11-27 Good Morning All, I have a VBA script in an Access 2003 database that takes a list of user supplied account #s and performs a screen search of a server emulation workstation screen takes an action, then moves onto the next loan (workstation emulator is attachmate MyExtra! 7.11). The the server threw script works fine has been working fine and has been used for thousands of updates. This week, I am starting to see an intermittent run time error stating "server thew an exception" and debug highlights line "counter = ObjScreen.WaitHostQuiet(200) '.010 seconds" (full code attached). Anyone have any ideas on what is prompting this intermittent error? Public Function SearchScreen(Item As String) As Boolean Dim loop_cnt As Integer Dim wait_rtn As Boolean Dim counter As Variant Search_OIA 'Check OIA status before searching for item on screen Search_OIA 'Check OIA status before searching for item on screen loop_cnt = 0 wait_rtn = False Do Until wait_rtn Or loop_cnt > 25 wait_rtn = ObjScreen.WaitForString(Item) loop_cnt = loop_cnt + 1 counter = ObjScreen.WaitHostQuiet(200) '.010 seconds Loop If loop_cnt > 25 Then SearchScreen = False search_err = True MsgBox "Alltel system response delay....Unable to locate item (" & Item & ") please re-start program or call programmer!", 16, "Processi