[發問] 顯示檔案名稱的語法

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2021-10-24 17:34 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-10-24 17:35 編輯

不好意思~漏了前一段的說明 ~
7S_搜尋(統)字檔(主檔)的執行標的檔案為 :
7C_0_1903期_50_1902_10+1896-10+1847-10_1次_1-49資料夾內的4個檔案。
需求 :
希望執行後的4個效果檔案名稱=的執行標的檔案的名稱。
請問 : ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls" '列158及
其它有相關的的程式碼應該如何修正 ?
謝謝 !

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2021-10-24 20:43 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-10-24 20:46 編輯

不好意思~2樓的需求寫錯了~
請將需求改為如1樓。
謝謝!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2021-10-25 09:38 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-10-25 10:02 編輯

回復 4# samwang
感謝回覆。
不好意思~
列61的程式碼改為 fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0)
7S前3大&小_0_1903期_50_1896-10+1872-10_1次和7S前3大&小_0_1903期_50_1896-10+1875-10_1次~2個效果檔案沒有產生。
7S前3大&小_0_1903期_50_1896_1次和7S前3大&小_0_1903期_50_1898_1次~2個效果檔案名稱沒有改變。

改61列~應該是末學誤判了

詳述需求 :
7RA統_0_1903期_50_1896_49個_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_1896_49個_1次 → →這個目前是少了_49個

7RA統_0_1903期_50_1898_49個_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_1898_49個_1次 → →這個目前是少了_49個

7RA統_0_1903期_50_1896-10+1872-10_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_1896-10+1872-10_1次→ →這個目前已經是OK了!

7RA統_0_1903期_50_1896-10+1875-10_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_1896-10+1875-10_1次→ →這個目前已經是OK了!

以上懇請賜正謝謝您

PS : 可能是原本的fn是取資料夾的名稱作效果檔案的名稱；現在改為取檔案的名稱作效果檔案的名稱而產生誤差。

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2021-10-25 10:36 | 顯示全部帖子

回復 6# samwang
OK了
謝謝您的耐心指導~感恩
========================================
不好意思~尚有一個減少大量人工操作次數的問題請您賜教 :
『程式主檔』置於資料夾外執行的語法
附件：

TEST_1025-Q.rar (366.25 KB)
目前：『程式主檔』~7RA_搜尋(機)字檔(主檔)~是放在各個資料夾內執行後~產生有(統)關鍵字的效果檔案~
Ex1：『程式主檔』放在7C_0_1903期_50_1875_10+1868-1874_10_1次_1-49資料夾內執行後~
則產生7RA統_0_1903期_50_1875_7個_1次的效果檔案。

Ex2：『程式主檔』放在7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49資料夾內執行後~
則產生7RA統_0_1903期_50_1879_7個_1次的效果檔案。
其餘--------類推。

需求：
想將『程式主檔』~7RA_搜尋(機)字檔(主檔)~置於各個資料夾外執行~
執行後~則各個資料夾內同樣會各產生有(統)關鍵字的效果檔案~即其效果檔案的名稱和產生的位置都不變~
以利減少繁複的執行次數。

請問：『程式主檔』~7RA_搜尋(機)字檔(主檔)的程式碼應該如何再編修？

以上懇請賜教！謝謝您！

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2021-10-25 22:26 | 顯示全部帖子

回復 8# samwang
7RA_搜尋(機)字檔(主檔)~測試成功

謝謝您的耐心指導~感恩

========================================
不好意思~
還有另外1個同類型的檔案7RB_搜尋(機)字檔(主檔)_ori
也是要改成~置於各個資料夾外執行~EX : 7RB_搜尋(機)字檔(主檔)_Q~
但末學改了半天~最後卡在程式碼列142的 NFn = "7RB統" & Split(Ky, "C")(1) '新檔案的名稱

因為程式碼列28的 'For Each ky In xD1 程式碼列30的 'If Ar(x, 2) = ky Then
已經修改為程式碼列37的 n2 = n2 + 1: Ar2(n2, 1) = f22.Path: Ky = Split(Split(f22.Name, "_")(4), "-")(0)
末學不知道程式碼列37和列142要如何修改才正確 ?
所以末學自改沒有成功

詳如附件︰ TEST_1025-V1.rar (760.44 KB)
下載次數: 1

2021-10-25 22:25

PS：7RB_搜尋(機)字檔(主檔)_ori 和7RB_搜尋(機)字檔(主檔)_Q~
其效果檔案的名稱和產生的位置都不變

以上懇請賜正！謝謝您！

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2021-10-26 10:21 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-10-26 10:32 編輯

回復 10# samwang
除了新檔名問題以外，另外您的需求和原來的不一樣，之前匯出的資料是單筆分開，現在需求是全部要彙總一個嗎?
不好意思~我的程式碼修改都錯誤了

8#是各個資料夾全部彙總成為一個統字的效果檔案。
9#是各個資料夾各自成為一個統字的效果檔案~

詳述本題需求：
將7RB_搜尋(機)字檔(主檔)_Question置於7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49和7C_0_1903期_50_1880_10+1873-1879_10_1次_1-49之資料夾之外執行~
執行後~其效果檔案的名稱和產生的位置都不變~
詳如 :Question資料夾內的7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49和7C_0_1903期_50_1880_10+1873-1879_10_1次_1-49~其內的各7個統字效果檔案。

簡單說 : 本題的需求也是如同8#一樣~以original的程式碼為基準~再增編多開啟一層資料夾的程式碼即=Question

以上懇請賜正！謝謝您

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

8^#

發表於 2021-10-26 14:27 | 顯示全部帖子

回復 12# samwang
測試成功如需求

謝謝您的耐心指導和熱心幫忙~感恩