[問題] VBA DIR file .csv

[aup65797 (有緣人)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office

版本:2010


以下疑問是xFile = Dir是尋找下一個.csv檔案 , 若要找上一個.csv檔要如何寫?



 If xChk = 0 Then
       xFile = Dir(ThisWorkbook.Path & "\*.csv") '尋找CSV檔案
       If xFile = "" Then MsgBox "※找不到 TXT 檔案！　", 0 + 16: Exit Sub
       xChk = 1
    Else
       xFile = Dir  '尋找下一個.csv檔案
       If xFile = "" Then Exit Do
    End If

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.82.6.39
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1488077367.A.83A.html
→ soyoso: 請問什麼是找上一個.csv檔？
→ soyoso: 如果是讀入檔案日期為後至前的話，可goolge
→ soyoso: excel vba dir sort date
→ soyoso: 要反序的話excel vba dir order descending
比如說有3個.csv file  分別為 test1.csv test2.csv test3.csv 第一次會讀取
test1.csv第二次還是希望讀取test1.csv 第三次才讀取test2.csv 第四次讀取
test3.csv

以此類推..
※ 編輯: aup65797 (111.82.6.39), 02/26/2017 13:24:27
→ soyoso: 是指每個檔讀取二次嗎？
※ 編輯: aup65797 (111.82.6.39), 02/26/2017 13:44:28
→ soyoso: 迴圈內增加個累加變數，變數=變數+1，再以判斷，當第一次
→ soyoso: 時於判斷內多執行一次讀取test1.csv的巨集
→ aup65797: 感謝S大耐心教導 , 成功了