[發問] VBA 開啟檔案應用

請教各位前輩

某固定資料夾中每分鐘會不固定增加.TXT檔，且檔案名稱不同但基本上檔案名稱長度是一樣的
小弟目前只能使用Timer物件開啟固定路徑的.TXT，如何使用VBA 開啟這5分鐘內資料夾所有產生的.TXT檔
依時間將資料產生的順序分別顯示A1、B1、C1
EX：C:\Users\j\Desktop\test 資料夾中
   此次五分鐘內依序產生 >  111.txt 222.txt 333.txt
                           檔案內容>    1             2          3

                  儲存格顯示為>    A1          B1       C1
                                                   1             2          3


請各位前輩幫幫小弟，謝謝

樓主熱帖

Jason80Lo

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

2^#

發表於 2015-9-28 18:02 | 顯示全部帖子

回復 2# 准提部林

需求：Test資料夾在某5分鐘內Server丟出產生 111.txt , 222.txt, 333.txt ，小弟需求為將這5分鐘內產生的txt檔，自動開啟，
也就是說每5分鐘程式能夠自動去Check Test資料夾是否有新的txt檔(小弟目前只能使用Timer物件開啟固定路徑的.TXT)，但無法一次開啟這麼多txt檔且名稱都不一樣。

Test.rar (8.43 KB)

TOP

Jason80Lo

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

3^#

發表於 2015-9-29 19:06 | 顯示全部帖子

感謝兩位版主回覆小弟套套看

TOP

Jason80Lo

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

4^#

發表於 2015-9-29 23:35 | 顯示全部帖子

回復 5# GBKEE

超級版主你好，程式碼中 Open xPath & xFile For Input Access Read As #1 '開啟文字檔出現錯誤碼53 找不到檔案，
程式碼中xPath為資料夾路徑 xFile為找到的.txt檔檔案路徑都為正確，但還是無法順利開啟，請問是有哪邊出問題？

TOP

Jason80Lo

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

5^#

發表於 2015-9-30 18:28 | 顯示全部帖子

回復 9# GBKEE

謝版大
另外我想請問下方程式碼
為何 xTime = Int(Application.Text(Time, "[m]") / 5) + 1 '現在時間的分鐘數/5 的整數+ 1 都需要將時間/5後面還要+1 ？
另外xTime = DateAdd("N", 5 * xTime, 0) 我想要更改程式碼裡面"5" 程式就會當掉，如果要每30秒、30分、3小時更新可以嗎？

未命名.png (7.9 KB)