如何用VBA复制当前excel中指定工作表数值到另外一个指定路径工作簿中指定工作表中

Dim arr
arr = Range("a1:d10") ' 需要复制数值的区域，保存结果到数组里面
With workbooks.open("a.xlsx") '打开指定的另外的文件
    .Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域
    .Save
    .Close
End With

文件必须要打开才可以修改，上面的例子是打开、修改、保存、关闭。