標題: [發問] VBA 搜尋時間抓 EXCEL檔 [打印本頁]

---

作者: key9028    時間: 2016-6-5 01:20     標題: VBA 搜尋時間抓 EXCEL檔

請各位大大幫幫忙
例如:Range("A1")和("A2")
設定6/1到6/2日期或時間.
搜尋 D槽內 這段時間有得EXCEL檔
把檔名列出list 到 sheet 1 (任何儲存格都可)

---

作者: GBKEE    時間: 2016-6-5 06:22

回復 1# key9028

試試看

1. Option Explicit
   
2. Sub EX()
   
3.     Dim f As Object, s As String, xFile As String, i As Integer
   
4.     'Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     'FileSystemObject 物件, 提供對電腦檔案系統的存取。
   
6.     xFile = Dir("D:\*.XLS")
   
7.     Do While xFile <> ""
   
8.         Set f = CreateObject("Scripting.FileSystemObject").GetFile("D:\" & xFile)
   
9.         s = f.DateCreated
   
10.         If [a1] <= s And [a2] >= s Then
    
11.             i = i + 1
    
12.             Cells(i, "b") = f
    
13.             Cells(i, "c") = s
    
14.         End If
    
15.         xFile = Dir
    
16.     Loop
    
17. End Sub

複製代碼

---

作者: key9028    時間: 2016-6-7 21:54

回復 2# GBKEE

GBKEE大大 超強的!!
真的可以用
但是我發現 ! D槽內太多資料夾 ,太多好幾年月份資料夾 搜尋會變成當機

資料太過龐大 電腦性能太爛!!
等超久了!等超過半小時後還沒任何結果

但是還是謝謝你 我學到你的專長

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)