返回列表 上一主題 發帖

[發問] VBA 搜尋時間抓 EXCEL檔

key9028

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
Win7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2016-6-5 
最後登錄
2017-4-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-6-5 01:20 | 只看該作者

[發問] VBA 搜尋時間抓 EXCEL檔

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

key9028

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
Win7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2016-6-5 
最後登錄
2017-4-23 
3#
發表於 2016-6-7 21:54 | 只看該作者
回復 2# GBKEE

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

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

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

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題