Set book_A=ThisWorkbook. Sheets (" 1. P2P statistics ") 'Set to replicate the work table
The Set xlbook=Workbooks. Open (ThisWorkbook. Path & amp; "\ AA. XLS") 'open workbook with directory to copy to
The Set sh=xlbook. Sheets (" Sheet2 ") 'Set to copy to the worksheet
Windows (" 1. P2P statistics "). The Activate copy the contents of the sheet1
'Book_A. Select
Cells. Select
Selection. Copy
Windows (" AA. XLS ") will Activate 'content and paste to the target worksheet
Sh. Select
ActiveSheet. Paste
End Sub
I can't do so has been performed, every brother please give a script
The excel sheet1 data copying to another excel sheet1 scripts
CodePudding user response:
Found the solution