返回列表 上一主題 發帖

從其他excel檔案剪貼至指定區域

學到老死

帖子
44 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
Window 8 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2015-8-15 
最後登錄
2017-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-29 09:33 | 只看該作者

從其他excel檔案剪貼至指定區域

早安，各位大大先進們。小的想請問 如何從B.xls 的 特定區域 剪貼 至 A.Xls 的特定區域 ，小的寫了一些程式碼，但是...失敗了

以下是個人寫的程式碼

Sub 從其他excek檔剪貼()

Dim A As Workbook, B As Workbook

  Set A = Workbooks("a.xlsx")

  Set B = Workbooks("b.xlsx")


  B.Worksheets("工作表1").Range("a1:c3").Copy Destination:=A.Worksheets("工作表1").Range("a1:c3")


End Sub

複製貼上.zip (11.75 KB)

收藏 分享

學到老死

帖子
44 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
Window 8 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2015-8-15 
最後登錄
2017-4-18 
2#
發表於 2016-2-29 10:31 | 只看該作者
** 程式名稱 ,變數的宣告 皆須避免使用與VBA上的關鍵字(物件,函數,屬性,方法)相同的文字 **

看到新手教學，將變數A.B 改為變數X.Y 後， 及另存新檔為啟用巨集的活頁簿後。

再次執行程式碼，依然顯示找不到方法或成員...

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2016-2-29 13:46 | 只看該作者
本帖最後由 ML089 於 2016-2-29 13:57 編輯

回復 1# 學到老死

你的程式可以執行

可以試試這樣
Sub 從其他excek檔剪貼()
    Dim A As Workbook, B As Workbook
    Set A = Workbooks("a.xlsx")
    Set B = Workbooks("b.xlsx")
   
    A.Worksheets("工作表1").Range("a1:c3") = B.Worksheets("工作表1").Range("a1:c3").Value

End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題