Read xls sheet contain to another xls sheet by help of MACRO

[PRIYARANJAN]

Hi,
I have a requirement like:
There is an xls sheet which contain some data.I want to copy the whole content of that xls sheet to another xls sheet(work1.xls).
I have tried following code:


Sub Mover2()

ActiveSheet.Move Before:=Workbooks("work1.xls").Sheets(1)
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
End Sub




But this is not working fine.
can any body help me regarding the same.....thanks in advance

 

[PRIYARANJAN]

Hi,
I have a requirement like:
There is an xls sheet which contain some data.I want to copy the whole content of that xls sheet to another xls sheet(work1.xls).
I have tried following code:


Sub Mover2()

ActiveSheet.Move Before:=Workbooks("work1.xls").Sheets(1)
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
End Sub




But this is not working fine.
can any body help me regarding the same.....thanks in advance

Hi plz help me out...

 

[PRIYARANJAN]

thnks i got it from others...plz ignore..

 

[Jibanendu]

Hi Priyaranjan,

Hopefully this code will work . I have just tried

Sub Mover2()
Dim a As Worksheet
Set a = ActiveSheet
Workbooks.Open Filename:="abc.xls"
a.Move Before:=Workbooks("abc.xls").Sheets("Sheet1")
End Sub

Regards,
Jibanendu