Sub WORK()
Set book_A = ThisWorkbook.Sheets("1.P2P統計") '設定要復制的作業表
Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\AA.xls") '打開同目錄下要復制到的作業簿
Set sh = xlbook.Sheets("Sheet2") '設定要復制到的作業表
Windows("1.P2P統計").Activate '復制sheet1中的內容
book_A.Select
Cells.Select
Selection.Copy
Windows("AA.xls").Activate '將內容粘貼到目標作業表中
sh.Select
ActiveSheet.Paste
End Sub
我這樣做一直都是執行不了 求各位大佬賜個腳本
把excel的sheet1資料原樣復制到另一個excel的sheet1腳本
uj5u.com熱心網友回復:
找到了 解決了轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/30178.html
標籤:VB基礎類
