作者olivefox (Olive)
看板Office
标题[算表] vba 合并工作表内容
时间Sun Dec 25 02:32:29 2016
软体:excel
版本:excel2016
我有一个excel档案(假设叫excelA)，包含很多个sheets(假设s1.s2,s3,s4)；
以及一个资料夹，底下有好几个excel(假设叫excelB ,excelC, excelD)，
资料夹下的这些excel都只有一个名称叫'details'的工作表，而且'details'的E2栏位，
都可以对得上excelA的其中一个工作表名称
(比如: excelB的E2栏位值可能为s3, excelC的E2栏位值可能为s4)。
我要做的是合并工作表；合并的方式是这样:
比对资料夹下的每个excel其E2栏位和excalA的sheet，
若有相符的话，将excelA的该sheet内容，贴至资料夹下的那个excel中；
比如打开excelB，发现其E2栏位值为s3，
我就找寻excelA中的工作表's3'，并将's3'工作表整页贴到excelB中。
ExcelB会因此变成有两个工作表在里面，
一个是原来的'details'，一个是新增的's3'
希望可以有好心高手帮忙写vba，因为我不大会...都只能一个一个贴..
感激不尽><
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.36.43.243
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1482604352.A.CDC.html
1F：→ soyoso: 1.开启资料夹内档案，可用回圈配合dir() 12/25 11:39
2F：→ soyoso: 2.是否相符，则以判断if配合instr，相符则worksheet.copy 12/25 11:43
3F：→ soyoso: 还有workbooks.open配合dir()取得档名，和workbooks.close 12/25 11:53