作者：乔山办公网日期：
返回目录：excel表格制作
这个用vba可以实现。请将表格发到我邮箱。
Sub AA()
Dim sht As Worksheet, wb2 As Workbook, wb3 As Workbook
Application.DisplayAlerts = False
Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\1")
With wb1
arr = Sheets(1).Range("A1:F10")
End With
[C3].Resize(10, 6) = arr
wb1.Close 1
Set wb1 = Nothing
Application.DisplayAlerts = True
End Sub
复制度和被知复制的都在道同专1个盘符属