[發問] 總資料夾名稱不同~有BUG

ziv976688

備註：Sheets("Sheet1")的A：K內容全部正確~不另贅述。

目前已完成的需求：
開啟總資料夾(TEST_0928 or 統計機率表暫存檔_0928)→
開啟第1層子資料夾(RA多期 or RA多期+RB多期)→
開啟第2層子資料夾(7C_0_1894期_50_1891-1893_10_1次_1-49 or 7C_0_1894期_100_1891-1893_10+1890-1892_10_1次_1-49)→
再開啟7RA_搜尋(機)字檔(主檔)_0927按執行鍵→
將同資料夾內的其它資料夾以第5段數字由大而小依序開啟→
並開啟其內有機關鍵字的檔案→再將其A欄&B欄複製→
並將各有相同的第5段數字之資料夾內有機關鍵字檔案的A欄&B欄內容，都依序在Sheets("Sheet1")的M1往右貼上→
轉成效果檔~
EX：開啟第2層7C_0_1894期_100_1891-1893_10+1890-1892_10_1次_1-49的子資料夾→
再開啟7RA_搜尋(機)字檔(主檔)_0927按執行鍵後→產生3個效果檔~
7RA統_0_1894期_100_1891_1個_1次；7RA統_0_1894期_100_1892_2個_1次；7RA統_0_1894期_100_1893_3個_1次

問題說明：
總資料夾名稱 = TEST_0928
以7RA_搜尋(機)字檔(主檔)_0927按執行鍵後~各個效果檔都OK
詳如附件範例檔 : TEST_0928.rar (426.88 KB)

下載次數: 2

2021-9-28 07:54

總資料夾名稱 = 統計機率表存底檔_0928
開啟第2層子資料夾(7C_0_1894期_50_1891-1893_10_1次_1-49 or 7C_0_1894期_100_1891-1893_10+1890-1892_10_1次_1-49→
以7RA_搜尋(機)字檔(主檔)_0927按執行鍵後→產生的各個效果檔有BUG~
會將各第5段數字的資料夾內之無機關鍵字檔案的A欄&B欄內容~同時複製貼上Sheets("Sheet1")的M1~
EX：7RA統_0_1894期_50_1893_1個_1次 or 7RA統_0_1894期_100_1893_5個_1次
詳如附件範例檔 : 統計機率表存底檔_0928.rar (431.76 KB)

下載次數: 2

2021-9-28 07:54

以上產生的BUG問題~
懇請各位大大賜正！
謝謝！

samwang

回復 1# ziv976688

請測試看看，謝謝

ziv976688

回復 2# samwang
samwang大大 : 您好 !
不好意思，您誤解了~
本題的需求是修正7RA_搜尋(機)字檔(主檔)_0927執行後~效果檔"Sheet1!"產生的BUG。
謝謝您

EX : 7RA統_0_1894期_100_1893_5個_1次(有BUG)

下載 (173.34 KB)

2021-9-28 15:54

samwang

回復 3# ziv976688


不好意思，我知道問題了，我在確認一下
另外，#2 的好像也需要更新(好像上次您說同時會出現2個主檔bug問題，而我測試沒問題)，請再確認一下，謝謝
http://forum.twbts.com/thread-23375-2-1.html

samwang

回復 3# ziv976688

已更新如附件，請再測試看看，謝謝

ML089

看你的註解  '開啟Ar，找檔名有"統"裝入Ar
原有程式中如下 是找路徑中有 "統"
  If InStr(f1.Path, "統") Then

若 f1.Path 改成 f1.Name 是否比較對?
  If InStr(f1.Name, "統") Then

原程式
'For i = 1 To n            '開啟Ar，找檔名有"統"裝入Ar
'    Set f = fs.GetFolder(Ar(i, 1))
'    Set fc = f.Files
'    For Each f1 In fc
'        If InStr(f1.Path, "統") Then
'           n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
'        End If
'    Next f1
'Next i

建議
For i = 1 To n            '開啟Ar，找檔名有"統"裝入Ar
    Set f = fs.GetFolder(Ar(i, 1))
    Set fc = f.Files
    For Each f1 In fc
        If InStr(f1.Name, "統") Then
           n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
        End If
    Next f1
Next i

ziv976688

回復 4# samwang
我也有想到
只是想先有機的正確主檔，再論統的正確主檔~免得搞混了
已測試成功~感恩
==========================
回復 5# samwang
測試成功 ~
謝謝您的耐心指導和熱心幫忙~感恩

ziv976688

回復 6# ML089
真不好意思~只要改1處即可~但小弟還是沒能自己找出異處
測試成功
謝謝您的耐心指導和熱心幫忙~感恩

PS :
http://forum.twbts.com/thread-23380-1-1.html
當您有空時~能否勞駕您幫我看一下?
函數解(EXCEL2003版)即可~
謝謝您