使用vba复制

Question

您好，我是VBA的新手，我这里有一段代码，应该将一列从工作簿A复制到工作簿B。似乎有一个错误。请帮助

这是我的代码

Sub try()

Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Users\alfred.anton.s.mateo\Documents\TaskTracker_2\TaskTracker_trial\TASK_TRACKERV5 - A")
Set y = Workbooks.Open("C:\Users\alfred.anton.s.mateo\Documents\Certificate\Consolidate")


'Transfer values from x to y
y.Sheets("STORES").Range("J7").Value = x.Sheets("WeekSummary").Range("J7:J45")
x.Close

End Sub

Answer 1

x.Sheets("WeekSummary").Range("J7:J45").Copy
y.Sheets("STORES").Range("J7").PasteSpecial xlPasteValues, operation:=xlNone
x.Close