12
返回列表 上一主題 發帖

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

samwang

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

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

TOP

ziv976688

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

TOP

ziv976688

帖子
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及
其它有相關的的程式碼應該如何修正 ?
謝謝 !

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
12
返回列表 上一主題