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

ziv976688

附件： TEST_1024.rar (174.23 KB)

下載次數: 1

2021-10-24 06:47

目前執行 7S_搜尋(統)字檔(主檔) 後~會產生下列4個檔案：
7S前3大&小_0_1903期_50_1896-10+1872-10_1次(目前_OK)
7S前3大&小_0_1903期_50_1896-10+1875-10_1次(目前_OK)
7S前3大&小_0_1903期_50_1896_1次(目前_請改為如需求)
7S前3大&小_0_1903期_50_1898_1次(目前_請改為如需求)
→ →
7S前3大&小_0_1903期_50_1896_49個_1次(需求)
7S前3大&小_0_1903期_50_1898_49個_1次(需求)

請問： fn = Split(Ar(i1, 2), "_")(4) '列61及
其它有相關的的程式碼應該如何編修？

以上  懇請賜教！  謝謝！

ziv976688

不好意思~漏了前一段的說明 ~
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及
其它有相關的的程式碼應該如何修正 ?
謝謝 !

ziv976688

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

samwang

回復 1# ziv976688

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

ziv976688

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

samwang

回復 5# ziv976688

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

ziv976688

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

下載次數: 1

2021-10-25 10:36

目前：『程式主檔』~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_搜尋(機)字檔(主檔)的程式碼應該如何再編修？

以上  懇請賜教！  謝謝您！

samwang

回復 7# ziv976688


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

ziv976688

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


以上  懇請賜正！  謝謝您！

samwang

回復 9# ziv976688

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