標題: [發問] 不開啟檔案，增加工作表並相互復製內容&........ [打印本頁]

---

作者: papaya    時間: 2019-10-10 09:35     標題: 不開啟檔案，增加工作表並相互復製內容&........

各位大大好!
不好意思，因為目前以人工手動操作，既費時又常出錯，所以煩請各位大大幫忙以VBA語法完成需求。
謝謝!

假設在日期不同而其餘名稱幾近相同(只是"空"和"機"之差別)的檔案中，
將相同日期且依據其名稱中的空機數總覽檔案別，作為A和B的指定配對檔案，即
539_五行排序-空數總覽-(####-##-##)和539_五行排序-機數總覽-(####-##-##)配對為A和B檔案~
EX︰
A1檔案=539_五行排序-空數總覽-(2019-08-19)和B1檔案=539_五行排序-機數總覽-(2019-08-19)配為一對；
A2檔案=539_五行排序-空數總覽-(2019-08-20)和B2檔案=539_五行排序-機數總覽-(2019-08-20)配為一對；
其餘.....同理類推。

需求︰
在不開啟A和B配對之2個檔案的情況下~~~~
1_在A和B檔案各增加一個新的工作表~
A檔案的新增工作表名稱="機數前三小"；B檔案的新增工作表名稱="空數前三小"；

2_將A檔案的Sheet2(前三小)的全部內容複製貼上B檔案新增工作表(空數前三小)的A1，

3_將B檔案的Sheet2(前三小)的全部內容複製貼上A檔案新增工作表(機數前三小)的A1，

4_將A檔案的Sheet2(前三小)和B檔案的Sheet2(前三小)移除。

[attach]31331[/attach]

---

作者: papaya    時間: 2019-10-10 12:03

回復 1# papaya
[attach]31333[/attach]
多附1對測試檔和需求檔範例，以利解題。謝謝!

---

作者: papaya    時間: 2019-10-12 07:07

回復 1# papaya
"不開啟"好像有點語病^^"
"不開啟"修正為"以程式開啟"。
謝謝!

---

作者: papaya    時間: 2019-10-12 15:31

本帖最後由 papaya 於 2019-10-12 15:35 編輯

回復 1# papaya
補充另一種需求流程~
以程式自動開啟A和B配對之2個檔案的情況下~~~~
1_在A和B檔案(即同資料夾內全部的測試檔案)各新增一個工作表("Sheet1")。

2_將A檔案內名稱="前三小"的工作表之全部內容複製貼上B檔案如上新增工作表("Sheet1")的A1。

3_將B檔案內名稱="前三小"的工作表之全部內容複製貼上A檔案如上新增工作表("Sheet1")的A1。

4_將A檔案內名稱="前三小"和B檔案內名稱="前三小"的工作表都移除。

5_將A檔案內的"Sheet1"工作表名稱改為="機數前三小"。

6_將B檔案內的"Sheet1"工作表名稱改為="空數前三小"。

以上供參!謝謝!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)