返回列表 上一主題 發帖

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

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

本帖最後由 ziv976688 於 2021-9-28 08:13 編輯

備註: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)

總資料夾名稱 = 統計機率表存底檔_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)

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

回復 1# ziv976688

請測試看看,謝謝

7T_搜尋(統)字檔(主檔_前3小_含0)_0928.zip (36.05 KB)

TOP

本帖最後由 ziv976688 於 2021-9-28 15:55 編輯

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


EX : 7RA統_0_1894期_100_1893_5個_1次(有BUG)
未命名.png
2021-9-28 15:54

TOP

回復 3# ziv976688


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

TOP

回復 3# ziv976688

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

7RA_搜尋(機)字檔(主檔)_0928.zip (121.1 KB)

TOP

看你的註解  '開啟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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

本帖最後由 ziv976688 於 2021-9-28 19:22 編輯

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

TOP

本帖最後由 ziv976688 於 2021-9-28 19:26 編輯

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

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

TOP

        靜思自在 : 一句溫暖的話,就像往別人身上灑香水,自己會沾到兩三滴。
返回列表 上一主題