返回列表 上一主題 發帖

[發問] 搜尋某資料夾中檔案的數量，每增加一筆資料就收錄進來

sweetkitty

帖子
15 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-1-17 
最後登錄
2014-3-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-18 17:49 | 顯示全部帖子

[發問] 搜尋某資料夾中檔案的數量，每增加一筆資料就收錄進來

某個軟體每秒在"D:\raw data\"資料夾中儲存一個Excel檔案
檔案名稱依序從 ResultsFile1、ResultsFile2、ResultsFile3、....、ResultsFile10、ResultsFile11、...
我想要建一個"Record.xls"  叫他自動偵測這個資料夾是否有新的Excel檔進來
每當有新檔案就把他打開存取Cells(2,3)的值進入"Record.xls" 中
請問該如何寫VBA叫他自動偵測?
感謝
收藏 分享

sweetkitty

帖子
15 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-1-17 
最後登錄
2014-3-26 
2#
發表於 2012-7-19 15:53 | 顯示全部帖子
回復 2# Hsieh
感謝H大回答，不過我執行的時候出現"無法執行巨集"的視窗
Loop之前的動作都執行完畢了，是最後一行Application沒辦法做
請問有什麼我沒注意的地方嗎?
謝謝!!

auto open.JPG (22.7 KB)

auto open.JPG

TOP

sweetkitty

帖子
15 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-1-17 
最後登錄
2014-3-26 
3#
發表於 2012-7-24 16:22 | 顯示全部帖子
本帖最後由 sweetkitty 於 2012-7-24 17:15 編輯

回復 2# Hsieh

感謝H大大!  我發現把程式碼放在"模組"裡面就可以執行了
另外我修改成我要的樣子，發現您原來的程式碼跑會自動抓"有新增的檔案"取值
但我的程式碼會一直不斷的從第一個檔案開始repeat
請問是哪個程式碼沒改到呢?
感謝
  1. Sub 自動整理資料()

  3. fd = "D:\Wayne\" '資料夾
  4. fs = Dir(fd & "ResultsFile*")
  5. Set sht = ThisWorkbook.Sheets(2)
  6. Do Until fs = ""
  7. If IsError(Application.Match(fs, sht.Columns("A"), 0)) Then
  8. With Workbooks.Open(fd & fs)
  9. sht.Cells(Rows.Count, 1).End(xlUp).Offset(1) = Mid(Workbooks(fs).Name, 12)
  10. sht.Cells(Rows.Count, j * 2).End(xlUp).Offset(1) = Workbooks(fs).Sheets(1).Cells(23, j * 2 + 1).Value
  11. .Close 0
  12. End With
  13. End If
  14. fs = Dir
  15. Loop

  17. Application.OnTime Now + TimeValue("00:00:01"), "自動整理資料"

  19. End Sub
複製代碼

TOP

sweetkitty

帖子
15 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-1-17 
最後登錄
2014-3-26 
4#
發表於 2012-7-24 17:17 | 顯示全部帖子
回復 5# sweetkitty

我發現把上面那個程式碼的第9行改成以下這樣，就不會發生重複填入資料的狀況了
  1.         sht.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2) = Array(fs, .Sheets(1).Cells(2, 3).Value)
複製代碼
但是我還是不太明白原理，希望可以解惑
感謝

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題