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

2024-11-22 03:52:43
推荐回答(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:

代码由点长