返回列表 上一主題 發帖

[發問] 不開啟檔案，增加工作表並相互復製內容&........

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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(前三小)移除。

TEST.rar (128.95 KB)
收藏 分享

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
2#
發表於 2019-10-10 12:03 | 只看該作者
回復 1# papaya
TEST_2.rar (34.25 KB)
多附1對測試檔和需求檔範例，以利解題。謝謝!

TOP

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
3#
發表於 2019-10-12 07:07 | 只看該作者
回復 1# papaya
"不開啟"好像有點語病^^"
"不開啟"修正為"以程式開啟"。
謝謝!

TOP

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
4#
發表於 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"工作表名稱改為="空數前三小"。

以上供參!謝謝!

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題