標題: 從其他excel檔案剪貼至指定區域 [打印本頁]

---

作者: 學到老死    時間: 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

---

作者: 學到老死    時間: 2016-2-29 10:31

** 程式名稱 ,變數的宣告 皆須避免使用與VBA上的關鍵字(物件,函數,屬性,方法)相同的文字 **

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

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

---

作者: ML089    時間: 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

---

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