　暱稱: 新鮮貨幽杉

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-12-13 18:35 | 只看該作者

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

c:\下載資料夾裡面有以下這樣的檔案每日九點會傳過來
From(測試測試系統發送 ([email protected]))_ID(1581)_I55447_1212090002.CSV
From(測試測試系統發送 ([email protected]))_ID(1587)_I55447_1213090016.CSV

紅色部份我不確定他的規律所以希望可以用 * 來替代
藍色部份是日期所以我使用
Dim a As String
a = Format(Date , "mmdd")
Workbooks.Open Filename:="C:\下載資料夾\From(測試測試系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"

顯示找不到或名子錯誤希望大大們解答 !!

樓主熱帖

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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
測試看看

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

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

超級版主 Rank: 8 Rank: 8

帖子: 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所建立或修改存檔的

Option Explicit
Sub Ex()
Dim a As String, f As String, Fc As Object
Set Fc = CreateObject("Scripting.FileSystemObject")
'FileSystemObject 物件提供對電腦檔案系統的存取。
a = Format(Date, "mmdd")
f = "C:\下載資料夾\From(測試測試系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"
f = Dir(f)
'****因為此檔傳送來只有日期沒有年份所以我現在抓的資料有時候都會抓到去年的0416的檔案****
'如此會有1個以上的檔案用迴圈處理
Do While f <> ""
If DateValue(Fc.GetFile("C:\下載資料\" & f).DateLastAccessed) = Date Then
'DateLastAccessed 屬性傳回最後一次存取指定檔案或資料夾的日期和時間。唯讀。
Workbooks.Open "C:\下載資料\" & f
End If
f = Dir
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

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

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2013-4-17 16:37 | 只看該作者

本帖最後由 GBKEE 於 2013-4-18 14:46 編輯

回復 9# die78325
試試看

Sub Ex()
Dim a As String, f As String, Fc As Object
Set Fc = CreateObject("Scripting.FileSystemObject")
'FileSystemObject 物件提供對電腦檔案系統的存取。
a = Format(Date, "mmdd")
f = "C:\下載資料夾\From(測試測試系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"
f = Dir(f)
'****因為此檔傳送來只有日期沒有年份所以我現在抓的資料有時候都會抓到去年的0416的檔案****
'如此會有1個以上的檔案用迴圈處理
Do While f <> ""
If Year(Fc.GetFile("C:\下載資料\" & f).DateLastAccessed) = Year(Date) Then
'DateLastAccessed 屬性傳回最後一次存取指定檔案或資料夾的日期和時間。唯讀。
Workbooks.Open "C:\下載資料\" & f
End If
f = Dir
Loop
End Sub
ub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

9^#

發表於 2013-4-17 13:41 | 只看該作者

回復 4# Hsieh

大大，此程式用了一段時間也遇到了些問題，雖然不段的再進修與練習寫新程式
但還是想不出頭緒，因為此檔傳送來只有日期沒有年份  所以我現在抓的資料有時候都會抓到去年的0416的檔案 ....(但有時又會是2013正確的)不知道抓取的定義是否為隨機的
但是此附件的  ID  會一直向上增加  有辦法用DIR抓取 ID較大的檔案嗎?? 或者是比較最後儲存日期來抓取最新的資料!(最好是兩種方式都教我^^)哈哈
目前程式為:

fs = Dir("C:\下載資料\From(測試測試系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & Format(Date, "mmdd") & "*" & ".CSV")
If fs <> "" Then
Workbooks.Open "C:\下載資料\" & fs
Else:
fs = Dir("C:\統一信件\From(測試測試系統發送 ([email protected]))_ID(" & "*" & ")_I55447_" & Format(Date - 1, "mmdd") & "*" & ".CSV")
If fs <> "" Then
Workbooks.Open "C:\下載資料\" & fs
Else: GoTo 離開
End If
End If

複製代碼

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

8^#

發表於 2012-12-17 16:12 | 只看該作者

回復 4# Hsieh

大大剛自己試一下已解決了.......^^

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP