[算表] 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