[發問] 複製不同活頁簿中特定儲存格

caichen3

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

GBKEE

回復 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

感謝G大大 : )

caichen3

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

GBKEE

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

caichen3

在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

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

caichen3

受益  感謝大大們的幫助