Dim arrarr = Range("a1:d10") ' 需要复制数值的区域，保存结果到数组里面With workbooks.open("a.xlsx") '打开指定的另外的文件 .Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域 .Save .CloseEnd With文件必须要打开才可以修改，上面的例子是打开、修改、保存、关闭。
