Data transfer between two workbooks

[prathyush]

I have two workbooks book1.xls and book2.xls

I want to load data in sheet1 of book2 to sheet1 of book1.
This sheet1 of book2 has a table of 10 rows and 10 columns.

How to do that in VBA??

 

[VoG]

Try

Sub Cpy()
Workbooks("Book2").Sheets("Sheet1").Range("A1:J10").Copy _
    Destination:=Workbooks("Book1").Sheets("Sheet1").Range("A1")
End Sub

 

[prathyush]

Try

Sub Cpy()
Workbooks("Book2").Sheets("Sheet1").Range("A1:J10").Copy _
    Destination:=Workbooks("Book1").Sheets("Sheet1").Range("A1")
End Sub

It says Run-time error '9':Subscript out of range

 

[VoG]

Are both workbooks open?

 

[prathyush]

Are both workbooks open?

Yes

 

[VoG]

Try

Workbooks("Book2.xls").Sheets("Sheet1").Range("A1:J10").Copy _
    Destination:=Workbooks("Book1.xls").Sheets("Sheet1").Range("A1")

 

[prathyush]

Try

Workbooks("Book2.xls").Sheets("Sheet1").Range("A1:J10").Copy _
    Destination:=Workbooks("Book1.xls").Sheets("Sheet1").Range("A1")

yes got it...thanks alot.

 

[prathyush]

Try

Workbooks("Book2.xls").Sheets("Sheet1").Range("A1:J10").Copy _
    Destination:=Workbooks("Book1.xls").Sheets("Sheet1").Range("A1")

yes got it...thanks alot.
but i have one doubt in the formula..
what is the use of ":" in CopyDestination:= ?

 

[VoG]

It is just the syntax for specifying a named argument. Destination= will give an error.

Another example:

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Book2.xls"

 

[prathyush]

It is just the syntax for specifying a named argument. Destination= will give an error.

Another example:

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Book2.xls"

Ok..Thanks alot..