顯示檔案名稱的語法
[font=Verdana]附件：[attach]34271[/attach]目前執行 [b]7S_搜尋([color=Green]統[/color])字檔(主檔)[/b] 後~會產生下列[color=Green][b]4個[/b][/color]檔案：
7S前3大&小_0_1903期_50_1896-10+1872-10_1次(目前_[color=Blue][b]OK)[/b][/color]
7S前3大&小_0_1903期_50_1896-10+1875-10_1次(目前_[b][color=Blue]OK[/color][/b])
7S前3大&小_0_1903期_50_1896_1次(目前_[b]請改為[color=Green]如需求[/color][/b])
7S前3大&小_0_1903期_50_1898_1次(目前_[b]請改為[color=Green]如需求[/color][/b])
→ →
7S前3大&小_0_1903期_50_1896[color=Green][b]_49個[/b][/color]_1次([color=Green][b]需求[/b][/color])
7S前3大&小_0_1903期_50_1898[color=Green][b]_49個[/b][/color]_1次([b][color=Green]需求[/color][/b])
請問： [color=Blue][b]fn = Split(Ar(i1, 2), "_")(4)[/b][/color] [color=Green][b] '列61[/b][/color]及
[color=Blue][b]其它有相關的[/b][/color]的程式碼應該如何編修？
[b][color=Black]以上 懇請賜教！ 謝謝！[/color][/b]
[/font] [i=s] 本帖最後由 ziv976688 於 2021-10-24 17:35 編輯 [/i]
不好意思~漏了[color=Blue][b]前一段[/b][/color]的說明 ~
[b]7S_搜尋([color=Green]統[/color])字檔(主檔)[/b]的[color=Blue]執行標的[/color]檔案為 :
7C_0_1903期_50_1902_10+1896-10+1847-10_1次_1-49[color=Blue][b]資料夾內[/b][/color]的[b][color=Green]4個[/color][/b]檔案。
[b][color=Blue]需求 :[/color][/b]
希望執行後的[b]4個[color=Green][/color][/b]效果檔案名稱=[/b]的[color=Blue]執行標的[/color]檔案的名稱。
[b]請問 : ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" & fn & "_" & Ncount & "次" & ".xls" [color=Green]'列158[/color][/b]及
[b][color=Blue]其它有相關[/color][/b]的的程式碼應該如何修正 ?
[b]謝謝 ![/b] [i=s] 本帖最後由 ziv976688 於 2021-10-24 20:46 編輯 [/i]
[font=Verdana]不好意思~[b][color=Blue][color=RoyalBlue]2樓[/color][/color]的[color=Blue][/color][/b][color=Red][b]需求寫錯了[/b]~[b][/b][/color]
請將[b][color=Blue]需求[/color][color=Blue][/color][/b]改為[color=Blue][color=RoyalBlue][b]如1樓[/b][/color][b][/b][/color]。
[b]謝謝![/b][/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117391&ptid=23437]1#[/url] [i]ziv976688[/i] [/b]
fn = Split(Ar(i1, 2), "_")(4) '列61及
[color=Blue]>>需求要如下產出檔名的結果嗎?
fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0) '列61 [/color] [i=s] 本帖最後由 ziv976688 於 2021-10-25 10:02 編輯 [/i]
[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117397&ptid=23437]4#[/url] [i]samwang[/i] [/b]
[font=Verdana][color=Blue]感謝回覆。[/color]
不好意思~
[color=Green]列61[/color]的程式碼改為 [color=Blue] fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0) [/color]
7S前3大&小_0_1903期_50_1896-10+1872-10_1次和7S前3大&小_0_1903期_50_1896-10+1875-10_1次~[b][color=Blue]2個[/color][/b]效果檔案[color=Red][b]沒有產生[/b][/color]。
7S前3大&小_0_1903期_50_1896_1次和7S前3大&小_0_1903期_50_1898_1次~[b][color=Blue]2個[/color][/b]效果檔案名稱[color=Red][b]沒有改變[/b][/color]。
改[color=Green]61列[/color]~應該是末學[color=Red]誤判了[/color]:L
[color=Blue]詳述需求 :[/color]
7RA統_0_1903期_50_[color=Magenta]1896_49個[/color]_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" &[color=Magenta][b] fn[/b][/color] & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_[color=Magenta][b]1896_49個[/b][/color]_1次 [b][color=Magenta]→ →[/color]這個目前是[color=Red]少了[/color][color=Magenta]_49個[/color][/b]
7RA統_0_1903期_50_[color=Magenta]1898_49個[/color]_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" &[color=Magenta][b] fn[/b][/color] & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_[color=Magenta][b]1898_49個[/b][/color]_1次 [b][color=Magenta]→ →[/color]這個目前是[color=Red]少了[/color][color=Magenta]_49個[/color][/b]
7RA統_0_1903期_50_[color=Magenta]1896-10+1872-10[/color]_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" &[color=Magenta][b] fn[/b][/color] & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_[color=Magenta][b]1896-10+1872-10[/b][/color]_1次→ →[/b][/color][b]這個目前已經是[/b][color=Blue][b]OK了![/b][/color]
[font=Verdana]7RA統_0_1903期_50_[color=Magenta]1896-10+1875-10[/color]_1次的效果檔名稱="\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & "_" &[color=Magenta][b] fn[/b][/color] & "_" & Ncount & "次" & ".xls"
即其效果檔名稱=7S前3大&小_0_1903期_50_[color=Magenta][b]1896-10+1875-10[/b][/color]_1次→ →[/b][/color][b]這個目前已經是[/b][color=Blue][b]OK了![/b][/color]
以上 懇請賜正 謝謝您[/font]:lol
[b][color=Blue]PS :[/color] 可能是原本的[b][color=Magenta][font=Verdana]fn[/font][/color][/b]是[color=Magenta]取資料夾的名稱[/color]作效果檔案的名稱；現在改為[color=Blue]取檔案的名稱[/color]作效果檔案的名稱而產生誤差。[/b][/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117398&ptid=23437]5#[/url] [i]ziv976688[/i] [/b]
[color=Blue]
修改如下，謝謝
fn = Split(Ar(i1, 2), "50")(1)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S前3大&小_" & Order & "_" & Nrange & "期_" & num & fn [/color] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117399&ptid=23437]6#[/url] [i]samwang[/i] [/b]
[b][color=Blue]OK了:victory:
謝謝您的耐心指導~感恩:handshake [/color][/b]
========================================
[b]不好意思~尚有一個減少大量人工操作次數的問題請您賜教 :
[color=Blue]『程式主檔』置於資料夾外執行的語法[/color] [/b]
附件： [attach]34272[/attach]
[font=Verdana]目前：[color=Blue]『程式主檔』[/color]~7RA_搜尋([color=Blue]機[/color])字檔(主檔)~是放在[color=Blue]各個資料夾內[/color]執行後~產生有([color=Green]統[/color])關鍵字的效果檔案~
[color=Blue]Ex1：『程式主檔』[/color]放在7C_0_1903期_50_1875_10+1868-1874_10_1次_1-49[color=Blue]資料夾內[/color]執行後~
則產生7RA[color=Green]統[/color]_0_1903期_50_1875_7個_1次的效果檔案。
[color=Blue]Ex2：『程式主檔』[/color]放在7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49[color=Blue]資料夾內[/color]執行後~
則產生7RA[color=Green]統[/color]_0_1903期_50_1879_7個_1次的效果檔案。
[b]其餘--------類推[/b]。
[color=Blue][b]需求：[/b][/color]
想將[color=Blue]『程式主檔』[/color]~7RA_搜尋([color=Blue]機[/color])字檔(主檔)~[b][color=Magenta]置於[/color][color=Blue]各個資料夾[/color][color=Magenta]外[/color]執行[/b]~
執行後~則[color=Blue][b]各個資料夾[/b]內[/color][b]同樣會[/b][color=Green][b]各[/b][/color]產生有([color=Green][b]統[/b][/color])關鍵字的效果檔案~[b]即其效果檔案的[color=Blue]名稱[/color]和產生的[color=Blue]位置[/color][color=Green]都不變[/color]~[/b]
以利減少繁複的執行次數。
[b]請問：[color=Blue]『程式主檔』[/color]~7RA_搜尋([color=Blue]機[/color])字檔(主檔)的程式碼應該如何再編修？
以上 懇請賜教！ 謝謝您！[/b]
[/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117400&ptid=23437]7#[/url] [i]ziv976688[/i] [/b]
想將『程式主檔』~7RA_搜尋(機)字檔(主檔)~置於各個資料夾外執行~
執行後~則各個資料夾內同樣會各產生有(統)關鍵字的效果檔案~即其效果檔案的名稱和產生的位置都不變~
[color=Blue]>> 如附件，謝謝 [/color] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117402&ptid=23437]8#[/url] [i]samwang[/i] [/b]
[font=Verdana][color=Blue]7RA[/color]_搜尋([color=Blue]機[/color])字檔(主檔)~[color=Blue]測試成功:victory:
謝謝您的耐心指導~感恩[/color]:handshake
========================================
不好意思~
還有[color=DarkRed]另外1個[/color][b]同類型的檔案[/b][color=DarkRed]7RB[/color]_搜尋([color=DarkRed]機[/color])字檔(主檔)_[color=DarkRed]ori [/color]
也是要改成~[b][color=Magenta]置於[/color][/b][color=Blue]各個資料夾[/color][color=Magenta][b]外[/b][/color][b]執行[/b][b]~EX : [color=DarkRed]7RB[/color]_搜尋([color=DarkRed]機[/color])字檔(主檔)[color=Magenta]_Q[/color]~[/b]
但末學改了半天~[b]最後卡在程式碼[/b][color=Green][b]列142[/b][/color]的 [b] NFn = "7RB統" & Split([color=Red]Ky[/color], "C")(1)[/b] [color=Green]'新檔案的名稱[/color]:L
[color=Blue]因為[/color]程式碼[color=Green]列28[/color]的 [color=Green]'For Each [color=Red][b]ky[/b][/color] In xD1 [/color] 程式碼[color=Green]列30[/color]的 [color=Green] 'If Ar(x, 2) =[color=Red][b] ky[/b][/color] Then[/color]
已經修改為程式碼[color=Green]列37[/color]的 [color=Blue][b] n2 = n2 + 1: Ar2(n2, 1) = f22.Path:[color=Magenta] Ky[/color] = Split(Split(f22.Name, "_")(4), "-")(0)[/b][/color]
[b]末學不知道程式碼[/b][color=Green][b]列37[/b][/color][b]和[/b][color=Green][b]列142[/b][/color][b]要如何修改才正確 ?[/b]
[color=Blue]所以[/color]末學自改[color=Red]沒有成功[/color]:'(
[b]詳如附件︰[attach]34276[/attach]
[b][color=Blue]PS：[/color][/b][color=DarkRed]7RB[/color]_搜尋([color=DarkRed]機[/color])字檔(主檔)_[color=DarkRed]ori [/color][color=Blue][b]和[/b][/color][color=DarkRed]7RB[/color]_搜尋([color=DarkRed]機[/color])字檔(主檔)[color=Magenta]_Q[/color]~
[b]其效果檔案的[color=Blue]名稱[/color]和產生的[color=Blue]位置[/color][color=Green]都不變[/color]
[/b]
以上 懇請賜正！ 謝謝您！
[/b]
[/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117407&ptid=23437]9#[/url] [i]ziv976688[/i] [/b]
除了新檔名問題以外，另外您的需求和原來的不一樣，之前匯出的資料是單筆分開，現在需求是全部要彙總一個嗎? [i=s] 本帖最後由 ziv976688 於 2021-10-26 10:32 編輯 [/i]
[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117410&ptid=23437]10#[/url] [i]samwang[/i] [/b]
[font=Verdana]除了新檔名問題以外，另外您的需求和原來的不一樣，[color=Blue]之前匯出的資料是單筆分開，現在需求是全部要彙總一個嗎?[/color]
[b]不好意思~我的程式碼修改[color=Red]都錯誤了[/color][/b]:L
[b][color=RoyalBlue]8#[/color][/b]是各個資料夾[color=Blue][b]全部彙總[/b][/color]成為一個[color=Green][b]統[/b][/color]字的效果檔案。
[b][color=RoyalBlue]9#[/color][/b]是各個資料夾[color=Blue][b]各自[/b][/color]成為一個[b][color=Green]統[/color][/b]字的效果檔案~
[b]詳述本題[color=Blue]需求：[/color][/b]
將7RB_搜尋([color=Blue]機)[/color]字檔(主檔)_Question[color=Magenta][b]置於[/b][/color]7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49和7C_0_1903期_50_1880_10+1873-1879_10_1次_1-49之資料夾[color=Magenta][b]之外[/b][/color][b]執行[/b]~
[b]執行後~其效果檔案的[color=Blue]名稱[/color]和產生的[color=Blue]位置[/color][color=Green]都不變[/color]~[/b]
詳如 :[b][color=Magenta]Question[/color][/b]資料夾內的7C_0_1903期_50_1879_10+1872-1878_10_1次_1-49和7C_0_1903期_50_1880_10+1873-1879_10_1次_1-49[b]~其[color=Magenta]內[/color]的[/b][b][color=Magenta][b]各7個[/b][/color][color=Green]統[/color]字[/b]效果檔案。
[b]簡單說 : 本題的需求也是如同[color=RoyalBlue]8#[/color]一樣~以[color=Blue]original[/color]的程式碼為基準~[color=Blue]再增編[/color][color=Magenta]多開啟一層資料夾[/color]的程式碼即[color=Magenta]=Question[/color][/b]
[b]以上 懇請賜正！ 謝謝您:lol [/b]
[/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117412&ptid=23437]11#[/url] [i]ziv976688[/i] [/b]
執行後~其效果檔案的名稱和產生的位置都不變~
詳如 :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~[color=Red]其內的各7個統字效果檔案[/color]。
[color=Blue]>> 如附件，謝謝[/color] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117414&ptid=23437]12#[/url] [i]samwang[/i] [/b]
[color=Blue]測試成功如需求:victory:
謝謝您的耐心指導和熱心幫忙~感恩[/color]:handshake
頁:
[1]