使用<em>VBA</em>, 如何将一个<em>EXCEL</em>文

先录制宏自己复制几个，再修改下代码就好了

这就一句话的事呀，两个工作簿都已经打开的情zd况下
Sub MyCopy()
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
End Sub
意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的版A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格权即可）
sub tt
for i= 5 to sheets.count
rw=sheets(i).range("a65536").end(xlup).row
n=sheets(4).range("a65536").end(xlup).row+1
sheets(i).rows("2:" & rw).copy sheets(4).range("a" & n)
rw=nothing
n=nothing
next
end sub

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

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