好吧问答库 > EXCEL求VBA代码，点击按钮实现从未打开的EXCEL表sheet1文件复制内容到当前已打开的EXCEL表sheet1

EXCEL求VBA代码，点击按钮实现从未打开的EXCEL表sheet1文件复制内容到当前已打开的EXCEL表sheet1

2024年11月22日 03:52

有4个网友回答

网友（1）：

附件是例子，自己根据情况自行修改

网友（2）：

一般代码这样写：

sub xxx()
    Workbooks.Open Filename:="你要打开的文件名字，例如c:\a.xls"
    sheet1.[a1].AutoFilter
    sheet1.[a:o].copy ThisWorkbook.sheet1.[a:o]
    ActiveWorkbook.Close
end sub

程序三个语句，第一个打开文件，第二个取消筛选(如果原来没有筛选会加上筛选，但这并不影响后面的复制)，第三个语句完成复制，第四个关闭文件

网友（3）：

你自己现在代码写到怎样的程度了？

网友（4）：

代码由点长