Question

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

在已打开的Excel文件中设了一个按钮，点击后将未打开Excel中的区域复制过来。

Answer 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

追问

按你的代码，出现了错误，主要是目标地址我通过VLOOKUP函数查询到，然后提取那个单元格的值。

追答

你将包含thisworkbook.path & ....Cells(5,20) 这一段，用一个Msgbox输出看看有没有哪里不对，目前我也不大清楚。
你的Cells(5,20）里面包含了.xlsx什么的么？

追问

Cells(5,20) 的值是:SGD\03\03140825-1.xlsx
麻烦帮我看看

追答

你看我用这行代码用MsgBox输出的是这样的，thisworkbook.path没有没引用到。

需要将完整的绝对地址写出来。可能和vb有点不同，我也不懂为什么。

不要使用thisworkbook.path了

Answer 2

打开再复制不行吗？

追问

打开再复制考验电脑的性能啊，最好能在内存中实现。

追答

呵呵，一般的电脑能扛得住吧~
我不会搞，看看其他大神吧~

追问

参考过别人的代码，打开后在复制的一旦出现调试错误，Excel进程一直在任务管理器里面关不掉，结束进程的话连其他表格一并关闭了。