[發問] 將開啟後檔案的指定內容依序複製貼上。

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

2^#

發表於 2021-8-23 08:17 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-8-23 08:18 編輯

我的困難點是在無法依第4段數字選擇"由大而小"的順序~
因為無論將"7C機"資料夾內的檔案名稱遞增或遞減排序，
檔案開啟的順序都是"由小而大"，
所以不知道如何起始編寫程式碼 ?

懇請各位大大幫忙和指教 ! 謝謝 !

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

3^#

發表於 2021-8-23 12:37 | 顯示全部帖子

回復 3# samwang
感謝您的指導

由大而小開啟檔案的需求~OK了~感恩

不好意思，可否勞駕您將各已開啟的檔案內之"機率表!"A&B二欄的內容複製後，
依序由主檔之"Sheet1!"的M1往右貼上的程式語法一併賜教。
謝謝您

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

4^#

發表於 2021-8-23 14:47 | 顯示全部帖子

回復 5# samwang
OK了

謝謝您一再的指導和幫忙~感恩

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

5^#

發表於 2021-8-23 21:35 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-8-23 21:39 編輯

回復 5# samwang

TEST_0823.rar (225.26 KB)
Samwang大大：您好!
想以 5#的貴解程式碼再進階：
請將原貴解：以各檔案名稱的第4段數字為基準(EX：7C機_1878期_100_1877-10_1次)~由大而小開啟的程式碼~
進階為：以各資料夾名稱的第5段數字為基準(EX：7C _0_1878期_100_1877-10_1次)~由大而小開啟的程式碼；
然後將各開啟後的資料夾中有關鍵字"機"的檔案(EX：7C機_1878期_100_1877-10_1次)開啟~
再將該開啟後的檔案內之"機率表"的A&B二欄內容複製後，
依序由主檔之"Sheet1!"的M1往右貼上。
請詳見7C_0_1878期_5個(效果檔)
PS：效果檔的內容與5樓的效果檔相同。

以上懇請賜教 ! 謝謝您 !

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

6^#

發表於 2021-8-24 08:57 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-8-24 09:15 編輯

回復 8# samwang
samwang大大 : 您好 !
感謝賜教

測試後，在列33 ReDim Preserve Ar1(n1) 編輯錯誤(變數未定義)
請問 : 這個變數要怎麼下定義?

Private Sub CommandButton1_Click()
Dim Path As String, a, Ar(1 To 1000, 1 To 2), Ar1( )
這樣對嗎?
謝謝您

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

7^#

發表於 2021-8-24 09:37 | 顯示全部帖子

回復 10# samwang
Sorry~原來是我在貼8#的程式碼時，就疏忽遺漏了

所有需要人工操作的部分~都以程式碼完成替代並測試成功

萬分感激您的耐心指導和熱心幫忙~受惠良多~感恩

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

8^#

發表於 2021-8-31 09:53 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-8-31 10:06 編輯

回復 10# samwang
請修正程式碼

TEST_0831.rar (228.8 KB)
不好意思~將http://forum.twbts.com/viewthrea ... a=pageD1&page=2 10樓修正後的程式碼，
貼上本題主檔的程式碼列55套用，會在列62 For j = 2 To 8: n = n + 1: Brr(n) = Arr(i, j): Next 中斷(陣列索引超出範圍)。
不知要如何修正?才能讓Sheet1!C : K產生正確答案。
以上懇請賜正。謝謝您

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

9^#

發表於 2021-8-31 11:25 | 顯示全部帖子

回復 13# samwang
samwang大大 :
OK了!
謝謝您不厭其煩的指導和幫忙~感恩