① excel復制多個文件中固定工作表到另一個總的工作表中(用宏寫)
sub宏1()
dimp,n,st
setst=activesheet'所有文件的內容合並到當前工作表中
p="c:"'需要合並的文件所在的位置，必須以結尾
n=dir(p&"*.xls*")
whilen<>""
withworkbooks.openp&n
.sheets("附註").select
activesheet.usedrange.st.cells(st.usedrange.rows.count+1,1)
.close
endwith
n=dir
endwhile
endsub