作者：乔山办公网日期：
返回目录：excel表格制作
Dim arr
arr = Range("a1:d10") ' 需要复制数值的区zd域，保存结果到数组里面
With workbooks.open("a.xlsx") '打开指定的另外的文件
.Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域
.Save
.Close
End With
文件必须要打开才专可以修改，上面的例子是属打开、修改、保存、关闭。
Workbooks.Open Filename:="D:\1.XLSX"'打开文件来
Workbooks.Open Filename:="D:\1.XLSX", Password:=“123”, writerespassword:=“123” '输入源密码打zd开文件
Sheets("sheet1").range("a1")="45"
举个例子，知打开在Sheet1表中的A1中指定的路径下和A2中指定的已有文件道：
Sub 打开指定文件()
Dim OpenFName$, FileSource$
OpenFName = Sheets("Sheet1").Range("A2") '读取在Sheet1表中的A2中的文件名，样式如专 A.XLS
FileSource = Sheets("Sheet1").Range("A1") '读取在Sheet1表中的A1中的路径，样式如 D:\
Workbooks.Open Filename:=FileSource + OpenFName '打开在Sheet1表中的A1中指定的属路径下和A2中指定的文件，样式如 在：D:\A.XLS
End Sub