標題: [發問] 複製不同活頁簿中特定儲存格 [打印本頁]

---

作者: caichen3    時間: 2012-4-4 15:08     標題: 不同檔案間的複製

請問各位大大，如何將檔案A的某範圍儲存格A1:B6，複製到檔案B的儲存格A1:B6呢？

---

作者: GBKEE    時間: 2012-4-4 15:52

回復 1# caichen3

1. Option Explicit
   
2. Sub Ex()
   
3.     Workbooks("檔案A").Sheets("sheet1").[A1:B6].Copy Workbooks("檔案B").Sheets("sheet1").[A1]
   
4. End Sub

複製代碼

---

作者: caichen3    時間: 2012-4-9 11:30

感謝G大大 : )

---

作者: caichen3    時間: 2012-4-10 17:13     標題: 複製不同活頁簿中特定儲存格

請問大大，進行不同活頁簿之間的複製動個，是不二個活頁簿都要在開啟的狀態呢？
設設將 a.xls 的儲存格 A2:B10 複製於 b.xls的儲存格A2中，該如何呢

---

作者: GBKEE    時間: 2012-4-10 20:07

回復 4# caichen3
是的:  二個活頁簿都要在開啟的狀態下

---

作者: caichen3    時間: 2012-4-10 22:08

在a.xls中設置按鈕，按下按鈕後，將a.xls中儲存格 A2:B10 複製於 b.xls的儲存格A2，
但a.xls中儲存格B2：B10 有註解，若不想將註解複製於b.xls的儲存格，該如何呢？
a.xls中按鈕程式碼如下：
sub copy( )
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "C:\Documents and Settings\328-2\b.xls"
Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Copy Workbooks("b.xls").Sheets(1).Range("A2")
Workbooks("b.xls").Range("B2:B10 ").ClearComments
Workbooks("b.xls").Save
Workbooks("b.xls").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
end sub

我在思考是不是不可以於a.xls中清除b.xls裡的註解，有沒有其他辦法呢？？

---

作者: Hsieh    時間: 2012-4-10 22:14

回復 6# caichen3
Workbooks("b.xls").Sheets(1).Range("A2:B10 ")=Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Value

---

作者: caichen3    時間: 2012-4-11 00:08

受益  感謝大大們的幫助

---

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