返回列表 上一主題 發帖

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 2021-10-25 08:18 | 顯示全部帖子
回復 1# ziv976688

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-10-25 10:04 | 顯示全部帖子
回復 5# ziv976688

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
3#
發表於 2021-10-25 14:25 | 顯示全部帖子
回復 7# ziv976688


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

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
4#
發表於 2021-10-26 08:31 | 顯示全部帖子
回復 9# ziv976688

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
5#
發表於 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)

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題