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

帖子: 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樓。
謝謝!

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

4^#

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

回復 1# ziv976688

fn = Split(Ar(i1, 2), "_")(4) '列61及
>>需求要如下產出檔名的結果嗎?
fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0) '列61

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

帖子: 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

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

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

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

10^#

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

回復 9# ziv976688

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