12
返回列表 上一主題 發帖

開啟固定資料夾裡的csv(不斷新增)

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
11# 跳轉到 »
發表於 2013-4-18 09:46 | 只看該作者
回復 10# GBKEE


    大大 你有遠端嗎?? 可否幫我看一下??
目前 顯示沒有定義 f  

我把f 定為 string 因為是fs = dir(f) '個人想法應該是把偵測到的名稱紀錄為 fs
但下面這句就不太了解   而且顯示錯誤
If Year(Fc.GetFile(a & f).DateLastAccessed) = Year(Date) Then  '顯示找不到檔案

而且我建立按鈕  按了都沒反應   用F8 or F5 執行才會跑程式(怪事)
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
12#
發表於 2013-4-18 15:58 | 只看該作者
回復 10# GBKEE


    程式可行了 但是 ....他一次開兩個檔案  =="  所以沒有做篩選欸  把找到的都打開了
我去年04/18的檔案的最後修正日期為2013-03-21    今年04/18的是今天   會不會是用年份區分的關西??
可是你註解是寫說開啟最後的資料阿......~"~ G大拍謝捏  又要再麻煩您了@@"
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2013-4-18 16:16 | 只看該作者
回復 12# die78325
今年04/18的是今天 所以檔案須是今年04/18所建立或修改存檔的
  1. Option Explicit
  2. Sub Ex()
  3.     Dim a As String, f As String, Fc As Object
  4.     Set Fc = CreateObject("Scripting.FileSystemObject")
  5.     'FileSystemObject 物件   提供對電腦檔案系統的存取。
  6.     a = Format(Date, "mmdd")
  7.     f = "C:\下載資料夾\From(測試測試 系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"
  8.     f = Dir(f)
  9.     '****因為此檔傳送來只有日期沒有年份  所以 我現在抓的資料 有時候都會抓到去年的0416的檔案****
  10.     '如此會有1個以上的檔案 用迴圈處理
  11.     Do While f <> ""
  12.         If DateValue(Fc.GetFile("C:\下載資料\" & f).DateLastAccessed) = Date Then
  13.          'DateLastAccessed 屬性 傳回最後一次存取指定檔案或資料夾的日期和時間。唯讀。
  14.             Workbooks.Open "C:\下載資料\" & f
  15.          End If
  16.         f = Dir
  17.     Loop
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
14#
發表於 2013-4-18 16:29 | 只看該作者
回復 13# GBKEE


    ※今年04/18的是今天 所以檔案須是今年04/18所建立或修改存檔的※

是阿= ="  我在解說一次喔

2013/04/18 寄來的檔案   存取時間是2013/04/18 09:00   (應該單開此檔)
2012/04/18 的檔案    存取時間是 2013/03/21 06:29
卻會開啟兩個檔案
那問題是出在哪???
我試著把  a 改為 a= Format(Date - 1, "mmdd")
但是還是開兩個檔案  2013/04/17跟2012/04/17的檔案= =所以 好像開啟最後存取的語法沒反應
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2013-4-18 16:58 | 只看該作者
回復 14# die78325
測試看看
  1. Msgbox DateValue(Fc.GetFile("C:\下載資料\" & f).DateLastAccessed)
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
16#
發表於 2013-4-18 18:25 | 只看該作者
回復 15# GBKEE

Msgbox DateValue(Fc.GetFile("C:\下載資料\" & f).DateLastAccessed)

    此代碼要貼在 f = Dir(f)以下  迴圈以上
得到結果為2013/04/18   為正確的
我在想 應該是迴圈之後把舊的也開啟了
所以我在
             Workbooks.Open "C:\下載資料\" & f         後面讓他跳脫迴圈就OK了     ~>>>  : GoTo 離開

是這樣的關西嗎??   
DO While
不適執行一次是正確的就離開了  怎麼又會持續迴圈  還是我記錯了= ="!!

反正目前看起來應該是OK了....我在多測試看看  @@
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
12
返回列表 上一主題