就算使用VBA调用，也是将那个文件打开才能复制的。如果文件很大，一样会慢。
如果您想试试也行，以下是代码
Sub openandcopy()
Set excel_book = Workbooks.Open("需要打开的文件路径") '形如"E:\xxx\xxx\xxx.xlsx"保留英文双引号
excel_book.Visible = False'使其不可见
Set excel_sheet = excel_book.Sheets("被复制的表名")
excel_sheet.Range("A1:J16").Copy ThisWorkbook.Sheets("你需要复制到的表的名字").Range("A1")
excel_book.Close False
Set excel_book = Nothing
Set excel_sheet = Nothing
End Sub
