[算表] vba 合并工作表内容

楼主: olivefox (Olive)   2016-12-25 02:32:29
软件: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,因为我不大会...都只能一个一个贴..
感激不尽><
作者: soyoso (我是耀宗)   2016-12-25 11:39:00
1.开启资料夹内档案,可用循环配合dir()2.是否相符,则以判断if配合instr,相符则worksheet.copy还有workbooks.open配合dir()取得档名,和workbooks.close

Links booklink

Contact Us: admin [ a t ] ucptt.com