Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unknown where is the problem on the Runtime error - Automation error
I ran the following code and kept on getting the following
error message after successfully pasting the data into 'ThisWorkbook.Sheets("BU").Range("A6")' " Runtime error '-2147417848 (80010108) Automation error. The object invoked has disconnected from its clients." Hence, I'm not able to perform the 2nd copy. I looked into the MS Support site and it(813120) talked about this same error but it relates to inserting a pagebreak. Below is the code. Can someone please tell me where is the problem ? Set wkbk = Workbooks.Open(fPathname) wkbk.Sheets(1).Range("A10:C19").Copy wkbk.Sheets(1).Paste Destination:=ThisWorkbook.Sheets ("BU").Range("A6") wkbk.Sheets(1).Range("F10:C19").Copy wkbk.Sheets(1).Paste Destination:=ThisWorkbook.Sheets ("BU").Range("E6") Application.DisplayAlerts = False wkbk.Close fPathname Application.DisplayAlerts = True |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unknown where is the problem on the Runtime error - Automation error
Set wkbk = Workbooks.Open(fPathname)
wkbk.Sheets(1).Range("A10:C19").Copy ThisWorkbook.Sheets("BU").Range("A6").PasteSpecial _ xlallvalues wkbk.Sheets(1).Range("F10:C19").Copy ThisWorkbook.Sheets("BU").Range("E6").PasteSpecial _ xlAllValues wkbk.Close False Your paste looked odd...the code above should sort you out. Patrick Molloy Microsoft Excel MVP -----Original Message----- I ran the following code and kept on getting the following error message after successfully pasting the data into 'ThisWorkbook.Sheets("BU").Range("A6")' " Runtime error '-2147417848 (80010108) Automation error. The object invoked has disconnected from its clients." Hence, I'm not able to perform the 2nd copy. I looked into the MS Support site and it(813120) talked about this same error but it relates to inserting a pagebreak. Below is the code. Can someone please tell me where is the problem ? Set wkbk = Workbooks.Open(fPathname) wkbk.Sheets(1).Range("A10:C19").Copy wkbk.Sheets(1).Paste Destination:=ThisWorkbook.Sheets ("BU").Range("A6") wkbk.Sheets(1).Range("F10:C19").Copy wkbk.Sheets(1).Paste Destination:=ThisWorkbook.Sheets ("BU").Range("E6") Application.DisplayAlerts = False wkbk.Close fPathname Application.DisplayAlerts = True . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
JB Bates' Runtime Error 1004 problem | Excel Discussion (Misc queries) | |||
Runtime 440:Automation Error | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
Problem with excel macro - getting automation error | Charts and Charting in Excel | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) |