W
wellie
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
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