標題: 如何將選取的欄位至不同檔案的最後一列 [打印本頁]

---

作者: xlarge16803    時間: 2014-5-20 18:52     標題: 如何將選取的欄位至不同檔案的最後一列

請問位大大...將AAA.XLS檔裡Shee1選取複製A1:E1
至每次複製到BBB.XLS檔裡Shee1固定A欄的最後一列..

感謝

---

作者: owen06    時間: 2014-5-20 20:53

回復 1# xlarge16803


    未開啟bbb.xls直接copy的寫法

1. Sub test()
   
2. Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
   
3. Workbooks.Open ("d:\bbb.xls")
   
4. Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
   
5. ActiveSheet.Paste
   
6. End Sub

複製代碼

在bbb有開啟的情形下的寫法

1. Sub test2()
   
2. Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
   
3. Workbooks("bbb.xls").Activate
   
4. Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
   
5. ActiveSheet.Paste
   
6. End Sub

複製代碼

路徑請自行修改

---

作者: xlarge16803    時間: 2014-5-21 11:49

感謝大大 教導...己完成了
又學會一種新的語法

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)