標題:
[發問]
顯示檔案名稱的語法
[打印本頁]
作者:
ziv976688
時間:
2021-10-24 06:47
標題:
顯示檔案名稱的語法
附件：[attach]34271[/attach]
目前執行
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
時間:
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
及
其它有相關
的的程式碼應該如何修正 ?
謝謝 !
作者:
ziv976688
時間:
2021-10-24 20:43
本帖最後由 ziv976688 於 2021-10-24 20:46 編輯
不好意思~
2樓
的
需求寫錯了
~
請將
需求
改為
如1樓
。
謝謝!
作者:
samwang
時間:
2021-10-25 08:18
回復
1#
ziv976688
fn = Split(Ar(i1, 2), "_")(4) '列61及
>>需求要如下產出檔名的結果嗎?
fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0) '列61
作者:
ziv976688
時間:
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
是
取資料夾的名稱
作效果檔案的名稱；現在改為
取檔案的名稱
作效果檔案的名稱而產生誤差。
作者:
samwang
時間:
2021-10-25 10:04
回復
5#
ziv976688
修改如下，謝謝
fn = Split(Ar(i1, 2), "50")(1)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & fn
作者:
ziv976688
時間:
2021-10-25 10:36
回復
6#
samwang
OK了
謝謝您的耐心指導~感恩
========================================
不好意思~尚有一個減少大量人工操作次數的問題請您賜教 :
『程式主檔』置於資料夾外執行的語法
附件： [attach]34272[/attach]
目前：
『程式主檔』
~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
時間:
2021-10-25 14:25
回復
7#
ziv976688
想將『程式主檔』~7RA_搜尋(機)字檔(主檔)~置於各個資料夾外執行~
執行後~則各個資料夾內同樣會各產生有(統)關鍵字的效果檔案~即其效果檔案的名稱和產生的位置都不變~
>> 如附件，謝謝
作者:
ziv976688
時間:
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
要如何修改才正確 ?
所以
末學自改
沒有成功
詳如附件︰[attach]34276[/attach]
PS：
7RB
_搜尋(
機
)字檔(主檔)_
ori
和
7RB
_搜尋(
機
)字檔(主檔)
_Q
~
其效果檔案的
名稱
和產生的
位置
都不變
以上 懇請賜正！ 謝謝您！
作者:
samwang
時間:
2021-10-26 08:31
回復
9#
ziv976688
除了新檔名問題以外，另外您的需求和原來的不一樣，之前匯出的資料是單筆分開，現在需求是全部要彙總一個嗎?
作者:
ziv976688
時間:
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
以上 懇請賜正！ 謝謝您
作者:
samwang
時間:
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個統字效果檔案
。
>> 如附件，謝謝
作者:
ziv976688
時間:
2021-10-26 14:27
回復
12#
samwang
測試成功如需求
謝謝您的耐心指導和熱心幫忙~感恩
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
