58问答库 > Excel求用VBA将未打开的xlsx文件a表内A1:J16区域，复制到已打开的excel中b表的A1:J16，要求复制格式。

Excel求用VBA将未打开的xlsx文件a表内A1:J16区域，复制到已打开的excel中b表的A1:J16，要求复制格式。

2024-11-22 15:36:03

推荐回答（2个）

回答（1）：

就算使用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

回答（2）：

打开再复制不行吗？