Help
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

MS Excel VBO - Pasting Data From once Workbook to another Workbook

MichałKrzysik2
Level 2

‎07-11-15 05:08 PM

Hi, I am new to BP. I'm trying to execute a scenario. Where i'm trying to copy the data from one workbook1 to another workbook2. 1. I'm able to copy the data from workbook1 2. Copied data is getting stored in a Data Collection 3. Able to open the workbook2 to paste the data 4. While writing the copied data to workbook2 i'm getting an error Error message: " Workbook Not Found : Workbook named: C:\Users\Administrator\Desktop\Book2.xlsx not found in instance: 0" Can someone please help me. Thank you.. Regards, Murthuja
0 Likes
5 REPLIES 5

MurthujaShaik
Level 3

‎09-11-15 11:38 AM

I have cracked it successfully by using Get collection and write collection VBO objects provided in BP. Thank You.
0 Likes

JIGARPARIKH
Level 4
In response to MurthujaShaik

‎05-01-16 11:12 AM

Can you describe the functions which you used like Create Workbook, Open Workbook, Write Collection etc?
0 Likes

suchit_tripathy
Level 2

‎06-11-16 06:51 PM

I am trying to Copy and Paste few cells from one Excel file to another excel file by using EXCEL VBO with the action ""Copy and Paste Worksheet Range"" but getting the error : Failed to copy worksheet: Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
0 Likes

HarikrishnaMura
Level 4

‎28-01-19 10:31 PM

Hi,   Make sure you are doing it on the same handle. Do not create multiple handles.   When you create a handle use for all worksheets. Then copy paste will work.
0 Likes

AmiBarrett
Level 12

‎01-02-19 08:39 PM

If you want a solution that'll also work across handles, copy and modify the action ""Copy and Paste Worksheet Range"" and just remove the destination variables, along with anything trying to paste. You can then make a paste action using PasteSpecial. Should look something like this.

Inputs:
Handle - Number
Workbook - Text
Paste Option - Number  (-4163 for values only, -4104 for all data)

Outputs:
Success - Flag
Message - Text

Dim wb, excel, range As Object
Try 
	wb = GetWorkbook(Handle, Workbook)
	excel = wb.Application
	range = excel.Selection
	range.PasteSpecial(Paste:=Paste_Option, Operation:=-4142, SkipBlanks:=False, Transpose:=False)
	Success = True 
Catch e As Exception
	Success = False
	Message = e.Message
Finally
	wb = Nothing
	range = Nothing
End Try
0 Likes