返回列表 上一主題 發帖

如何將選取的欄位至不同檔案的最後一列

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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
複製代碼
路徑請自行修改

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題