從其他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

學到老死

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

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

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

ML089

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