帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-9-28 08:10 | 只看該作者

[發問] 總資料夾名稱不同~有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問題~
懇請各位大大賜正！
謝謝！

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 2021-9-28 13:20 | 只看該作者

回復 1# ziv976688

請測試看看，謝謝

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2021-9-28 15:31 | 只看該作者

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

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-9-28 16:18 | 只看該作者

回復 3# ziv976688

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

5^#

發表於 2021-9-28 16:28 | 只看該作者

回復 3# ziv976688

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

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2021-9-28 17:01 | 只看該作者

看你的註解  '開啟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