Question on copy sheet to a existing workbook (2003)

[duckconut]

Hello

I have 2 workbook files, for example: A.xls and B.xls and A is a template report format, B contains data only. And they are in different directory. ie. C:\Template\A.xls and C:\Data\B.xls

What I want to run in macro is copy sheet1 of B.xls to Data01(sheet's name) of A.xls

I cannot do it through the record macro function. (Excel 2003)

Sorry if this is a newbie question.. Any suggestions will be appreciated.

Thanks you!!!

 

[anvg]

If the "A.xls" and "B.xls" books are open.
Workbooks("A").Worksheets("TemplateSheetName").Copy Before:=Workbooks("B").Sheets(1)

 

[duckconut]

Thanks for reply.
But B.xls is closed..
And A is opening..

Any suggestions?

 

[anvg]

To add before
Workbooks.Open "d:\path\B.xls"
Workbooks("A").Worksheets("TemplateSheetName").Copy Before:=Workbooks("B").Sheets(1)
Workbooks("B").Close True

 

[duckconut]

Thanks for the reply.
Are those codes working in Excel 2003..? Coz I try the codes but with no luck..

 

[anvg]

Yes, it works in Excel 2003.

'To enter a full path and a real name of B-book
Workbooks.Open "d:\path\B.xls"
'A - change to a real name of A-book and TemplateSheetName to a real name of a template sheet in then A-book.
Workbooks("A").Worksheets("TemplateSheetName").Copy Before:=Workbooks("B").Sheets(1)
'B - change a real name of B-book
Workbooks("B").Close True

If you have a mistake, please, write me its string in the code
Regards,

 

[duckconut]

Thank you very much!!! I will test it later