System Error &H80010108 (-2147417848) Object Invoked Disconnected Client
Jan 6, 2010
I have created workbooks for four health regions to collect data, which then needs to be resubmitted via FTP, but with de-identified data. The end users have little to no excel experience, thus had to make it simple as possible. Created a button that runs the macro (below) to deidentify (clear) all cells where there could possibly be personal identifying information. Runs fine on my cpu, but one user (so far) has received the error noted in the title. Both running excel 2003 with SP3 (I have version 11.8169.8172, user has 11.8316.8221), I have XP professional SP2, user has XP professional SP3. Spent hours searching and reading suggestions online, to no avail.
I seem to be coming on here every day at the moment! Someone helped me with this code, it works great apart from 1 error, which stops the script. The lines that appear when i select debug are in italic / bold. The error message appearing is:
"Object invoked has disconnect from its client" or something very similar.
'Define variables. Dim lngRowPasteTo As Long Dim codelive, codeclosed, codeassigned, vLookFor As String
I developed an Excel application for some users. Everything used to wrok very well until recently. When the click some buttons, the error "Automation Error: Object has disconnected from its clients" appears. Problem is, everything works very well on my PC. We run the same Excel version, same OS but I can't seem to find a solution to this problem. I'd have posted the code I'm running here but I don't know how to use the code tags and I don't want to be banned from this forum.
-2147417848 automation error the object invoked has disconnected from its clients
Unfortunately, I can't tell where the error is occurring because everytime it happens excel crashes or at least stops responding. I tried waiting it out (about 20 minutes) but no luck. the only thing I can do is force the program to shut down through the task manager.
The program is designed to pull information from finviz.com (a financial site), filter the data. pull the next round of data and run the filters again. there are a total of 8 queries and i think it gets hung up during the 6th or 7th run through.
Stepping through the code does not seem practical since each query might pull as many as 300 rows of data that is evaluated in a for/next loop (thats a lot of F8s).
I have just signed up to the forums as I am having a very specific problem. I have looked on google and used the search feature (on several forums!) and found very limited information that is useful to me. I am having trouble with a very simple few lines of code in a macro. The code looks like this:
Function startmarketIDs() Dim targeturl, writerow, readrow, textmass, xmlHTTP targeturl = "http://lite.betfair.com/ Events.do?s=00010913z" Set xmlHTTP = CreateObject("Microsoft.xmlHTTP") xmlHTTP.Open "GET", targeturl, False xmlHTTP.send MsgBox xmlHTTP.StatusText textmass = xmlHTTP.responsetext MsgBox textmass End Function
My problem occurs at the line "textmass = xmlHTTP.responsetext". The responsetext command is obviously causing problems because if I remove it, the code executes without error and the "xmlHTTP.statustext" says "OK". With the responsetext command left in, the code generates the following error: Run-time error '-1072896658 (c00ce56e)': System Error: -1072896658. If I change the targeturl to www.betfair.com, the code executes fine and I get a message box (as desired) with the source code of the website displayed. Without meaning to sound like Im answering my own question (!!), perhaps there is something about the url or the way in which I am using the xmlHTTP object that is causing the issue, I wondered if someone would mind inspecting my code and perhaps pointing me in the right direction?
Whenever I do any subsequent processing after a heavy workload ( importing data, which itself works out fine and without any problem) my macro breaks/crashes with a "Runtime error -2147417848 (80010108); Methode "_Default" for Range-Object failed" at the marked line of the Dim max_reihen As Integer, lowestRow As Integer, latestCol As Integer Dim wksA As Worksheet
'[...] Set wksA =ActiveSheet With wksA .Range("A1").Select 'sets focus from possibly selected chart back to sheet max_reihen=526 'state of variable just before the critical line is met lowestRow=2000 'state of variable just before the critical line is met latestCol=26 'state of variable just before the critical line is met.............
I have a user form that builds a workbook from one template sheet and information in a SQL Server database. The template sheet contains 4 charts that are copied to every new sheet in the workbook, then their data ranges are set through VBA code. For a while the code was working wonderfully. All the necessary sheets were being generated and correctly populated.
Yesterday I added a new module to generate another sheet and pull data from the same SQL Server tables. Now if I run the userform it will work fine once and create all the needed sheets, and set all the charts to the proper ranges. However, if I delete all the created sheets and run the form again, I get:
Runtime Error '-2147417848 (80010108)'
Automation Error The Object Invoked has disconnected from its clients
The error consistantly occurs for the following line of Selection.Copy Destination:=Worksheets("Master").Range("D1")
After the error the selected range still shows up as surrounded by a selection box, but if I change sheets, the box moves to the new sheet. Also I cannot select any new cells in the work book. In order to get Excel to work again I have to End Task from the Task Manager just to get it to close. When I restart Excel and go back to my work book I get the same results, i.e. The form works great once, then Excel dies.
I have tried qualifing all of the objects that can be qualified. I have tried setting all possible varriables to Nothing before exiting my macros. Nothing I have tried, or found suggested so far in the forum works.
I wrote a script to get stock quotes from yahoo finance and place the info on a spreadsheet. The script reruns every 15 minutes. All works fine until the computer goes to sleep, then upon waking, the error 1004 appears with the debug or exit options, telling me it cannot find yahoo finance. The error occurs because the computer takes @ 3 seconds to reconnect to the internet on waking.
If I choose debug, and continue the script it completes without error. The script will continue once again collecting stock quotes every 15 minutes until the computer exits sleep mode again.
I have tried using On Error GoTo 0 On Error Resume Next
both still result in the error 1004.
What I would like is for the error to be ignored, and the script to complete.
I've followed a couple of the FSO threads and come up with the code below however I keep getting a 'Runtime Error 76 - Path not found'.
Sub scan_station() Dim FSO As New FileSystemObject Dim dest As String Dim dname As String dest = "L:eBISScan Station" dname = "Scans(" & Date & ").csv" FSO.copyfile "H: odaysscans.csv", dest & dname End Sub
It hangs at the area coloured red. However if I hard code the full path and name as I've done with the source information it works fine.
The macro below will generate a System Error '-2147417848 (80010108)' when executed as shown below but only when there is a value in the 6th column that ends in .0006(or .00061). It will however run if no empty cells are present after the cell with .0006 in the 6th column (i.e. J = 1 to 6). This can be avoided by using the "On Error Resume Next". What is strange is if the value ends in anything other than .0006(or.0061) in the 6th column it will work fine (i.e. .00062 or .0005).
In a new workbook I have the following values in A1:B6 1125924.4684333.2496895-1217.935514LOFT -1785884.895 2422123847.627 221.0003 -482.8184125LOFT -1698521.0006
The Macro: Sub Macro1() ' ' 'On Error Resume Next Application.Calculation = xlCalculationManual Set OldWb = ActiveWorkbook Set NewWb = Workbooks.Add Application.ScreenUpdating = False For I = 1 To 2 For J = 1 To 7 NewWb.Sheets("Sheet1").Cells(I, J) = OldWb.Sheets("Sheet1").Cells(I, J) Next J Next I Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
I've got this code that I use to open the active session of a program I use (EXTRA! 8.0). When I try to code it to open a specific new instance of the program, I get a run-time error 429. When I debug, it's stopping on the line where I get the new instance. I've searched on this issue, but I still don't understand what the problem is.
Sub log_in() Dim Sys As Object Dim Sess2 As Object Dim lngOldSysTimeout As Long Set Sys = CreateObject("EXTRA.System") If Sys Is Nothing Then MsgBox Prompt:="EXTRA! not properly installed on this PC." _ & " Terminating execution.", Buttons:=16, _ Title:="E!PC Not Properly Installed" Exit Sub End If Set Sess2 = GetObject("C:Program FilesExtra!sessionsCCS2.edp") If Sess2 Is Nothing Then MsgBox Prompt:="DLC.edp not found. Terminating execution." _ , Buttons:=16, Title:="E!PC Not Properly Installed" Exit Sub End If End Sub
I'm trying to do here is take the value of a certain cell (client number) and set another cell to be the name of the client. For example if I were client number 100 and my company name was Holman Inc the user should be able to enter 100 and Holman Inc would populate itself in the next field.
Sub OpenCalendarForm() frmCalendar.Show vbModeless
End Sub
When I run this I get this halt "System error&H80070057 (-2147024809). The parameter is incorrect. I havn't been doing VBA in a while as I am retired now but I have used this particular statement many times in the past and never had this error before. I have made sure there no typos. I open another workbook which has forms opening and copy pasted the the routine into my other workbook but I get the same error.
I am trying to copy 8 adjacent cells in a sheet and paste them on another sheet as a picture (using copy picture method). I could do that 3/4 times, but after that I started getting the insufficient system resources error.
whether I can handle errors in a way that tells me which object caused the error?
For example if a userform has two combobox's and one causes an error, can I return to a message box containing the name of the object (combobox1 or combobox2)?
I have tried returning err.source but I am either not using it correctly or it isn't intended to be used this way.
I am having difficulty getting a form to work the way that I would like it to work. I have a form that is used to display questions that my students will be answering. The form also is used to put the answers into a worksheet. I have 2 sheets. Sheet2 has the questions, student answers, and correct answers. Sheet1 is used to indicate correct answers and to keep track of percentage correct. I am fairly new to VB. I have 2 pieces of code that I am going to post. The first one works and the second one doesn't.
This is in the "This Workbook" section and it works. Option Explicit Public intNoQ As Integer Public strNoQ As String Public NumberofQuestions As Integer Dim StudentName As String Dim InputBoxAnswer As String Public Sub Workbook_Open() Application.Visible = False 'Hide Excel Load Questions Load NumberCorrect NumberofQuestions = Worksheets("Sheet1").Range("K3").Value For intNoQ = 1 To NumberofQuestions strNoQ = VBA.CStr(intNoQ) If intNoQ = 1 Then Questions.Controls("QuestionNumberBox").Value = "Question#" & strNoQ Questions.Controls("QuestionBox").Value = Worksheets("Sheet2").Range("B1").Value End If Questions.Controls("CorrectBox" & strNoQ).Visible = True Questions.Controls("CorrectLabel" & strNoQ).Visible = True Next intNoQ...............
I've been using a macro successfully for the last couple of years, but this morning when I went to use it, it decided to fail. I have a workbook which contains various spreadsheets. The macro that has failed performs the following tasks:
1. It copies a list of email addresss from an external workbook to a sheet in the current workbook (still works) 2. It copies the referral sheet I want to send to a new file, and saves it with an appropriate filename to an appropriate folder (still works) 3. The macro then creates an email with a standard subject line, attaches the new worksheet and emails it to each of the addresses as above (broken)
The error message is from Microsoft Visual Basic. "Run-time error '1004': Mail system failure. Check your mail installation."
I'm guessing there is a setting somewhere in Excel that has changed as part of an update.
I've been through a number of the options in the developer menu to remove any obvious restrictions (& reopened excel afterwards), but so far it hasn't resolved the problem.
For what it's worth, here is the macro code.
With Application .EnableEvents = False .ScreenUpdating = False End With Run "PullInSheet1" Dim oldbook As String
[Code] .......
In case you're wondering about the pullinsheet code, I'll add it below - but I probably grabbed it from this forum a couple of years ago (like some of the above) & just made some changes.
Code: Sub PullInSheet1() Dim AreaAddress As String '''''' Sheet11.UsedRange.Clear Dim ClRange As String ClRange = "= 'L:ADMINEMPLOY SERVICES" _
[Code] ........
There are a couple of things I've wanted to do to improve the macro, but I couldn't justify the need to spend time working it out (since writing spreadsheets isn't really my job). Since it's broken at the moment, I can...
1. I'd like to create a subject line that reflects the name of the person being referred. For some reason though, anything other than text in the cell reference caused an error for me. eg, I tried using concatenate to create my subject line, but it didn't work.
2. I'd like the copied sheet to contain all of the formatting of the original sheet. Presumably there is a paste option that will do this and I just picked the wrong one.
The mailsystem we use is Groupwise 8. I couldn't find any settings in that program that have been changed, or that I could change.
I should change the extension from xls to xlsx in the code since I'm using Excel 2010 (but changing it doesn't fix the problem).
I have a relatively complex report that I work with and a worksheet is no longer required. I have deleted the worksheet and reference to it hwoever when running the macro to pull all the data, it gets to the summary of all the data and i get the Run Time Error 1004 Application-defined or object-defined error pop up. ON reviewing it, it is on this line ActiveCell.Offset(0, 0).Range("a1:a" & Range_Height).Select of the below code...
VB: Sub GetRangeName() Sheets("TOTAL").Select
[Code].....
use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window.
I have a simple function below to put in different forumlas in different cells to get stock quotes. When I run this I get runtime error 1004 application-defined or object-defined error. The first formula goes through but vba chokes on the next formula: ActiveCell.Offset(I - 1, 4).Formula = username
For some reason my form won't open when the workbook is opened. I get an error message "run time error '424' object required" (which happens when I have Form1.show in the BOTH workbook_open event and the userform_initialize event (oops)). When I removed form1.show from the userform_initialize I don't get an error but I also get no form. I recall having this issue before but I can't recall how to fix it.
Can I call the userform_initialize event from the workbook open event to get around this successfully and properly?
I am trying to copy the info from one workbook to another workbook.
I keep getting the above referenced error...
Private Sub CommandButton1_Click() Dim filepath As String filepath = Range("A100") MsgBox ("File Appended") Workbooks.Open (filepath) Windows("CorrespondenceMaster.xls").Activate Sheets("Sheet2").Select Range("DesNo", "LocationPath").Select Selection.Copy Windows(filepath).Activate Range("A2").Select ActiveSheet.Paste End Sub
