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

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

13^#

發表於 2021-10-26 14:27 | 只看該作者

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

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

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

12^#

發表於 2021-10-26 12:29 | 只看該作者

回復 11# ziv976688

執行後~其效果檔案的名稱和產生的位置都不變~
詳如 :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個統字效果檔案。
>> 如附件，謝謝

7RB_搜尋(機)字檔(主檔)_1026.zip (124.94 KB)

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

11^#

發表於 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

以上懇請賜正！謝謝您

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

10^#

發表於 2021-10-26 08:31 | 只看該作者

回復 9# ziv976688

除了新檔名問題以外，另外您的需求和原來的不一樣，之前匯出的資料是單筆分開，現在需求是全部要彙總一個嗎?

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

9^#

發表於 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~
其效果檔案的名稱和產生的位置都不變

以上懇請賜正！謝謝您！

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

8^#

發表於 2021-10-25 14:25 | 只看該作者

回復 7# ziv976688

想將『程式主檔』~7RA_搜尋(機)字檔(主檔)~置於各個資料夾外執行~
執行後~則各個資料夾內同樣會各產生有(統)關鍵字的效果檔案~即其效果檔案的名稱和產生的位置都不變~
>> 如附件，謝謝

7RA_搜尋(機)字檔(主檔)-1025.zip (192.18 KB)

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

7^#

發表於 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_搜尋(機)字檔(主檔)的程式碼應該如何再編修？

以上懇請賜教！謝謝您！

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

6^#

發表於 2021-10-25 10:04 | 只看該作者

回復 5# ziv976688

修改如下，謝謝
fn = Split(Ar(i1, 2), "50")(1)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & fn

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

5^#

發表於 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是取資料夾的名稱作效果檔案的名稱；現在改為取檔案的名稱作效果檔案的名稱而產生誤差。