作者aup65797 (有缘人)
看板Office
标题[问题] VBA DIR file .csv
时间Sun Feb 26 10:49:24 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1488077367.A.83A.html
1F：→ soyoso: 请问什麽是找上一个.csv档？ 02/26 11:50
2F：→ soyoso: 如果是读入档案日期为後至前的话，可goolge 02/26 12:09
3F：→ soyoso: excel vba dir sort date 02/26 12:09
4F：→ soyoso: 要反序的话excel vba dir order descending 02/26 12:11
比如说有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
5F：→ soyoso: 是指每个档读取二次吗？ 02/26 13:35
※ 编辑: aup65797 (111.82.6.39), 02/26/2017 13:44:28
6F：→ soyoso: 回圈内增加个累加变数，变数=变数+1，再以判断，当第一次 02/26 13:59
7F：→ soyoso: 时於判断内多执行一次读取test1.csv的巨集 02/26 14:00
8F：→ aup65797: 感谢S大耐心教导 , 成功了 02/26 14:12