程式為讀取一個月內的文字檔
問題是
2月有29天,所以資料沒有30及31
到30時會經由錯誤控制跳開,但31就會出現找不到檔案
本來想錯誤控制直接跳開迴圈的
但是有可能一個月有幾天沒有紀錄的檔案,
例如沒有3日,那就從3 日以後就都沒資料了
所以就要for day_type =1 to 31,
程式碼如下:
For day_type = 1 To 31
On Error GoTo errstr:
FileNo = FreeFile
sVar = Year_type & "_" & Month_type & "_" & day_type
Open App.Path & "\" & sVar & ".txt" For Input As #FileNo
Do Until EOF(FileNo)
Line Input #FileNo, sVarData
Call Data1
Loop
errstr:
Close #FileNo
Next
問題是
2月有29天,所以資料沒有30及31
到30時會經由錯誤控制跳開,但31就會出現找不到檔案
本來想錯誤控制直接跳開迴圈的
但是有可能一個月有幾天沒有紀錄的檔案,
例如沒有3日,那就從3 日以後就都沒資料了
所以就要for day_type =1 to 31,
程式碼如下:
For day_type = 1 To 31
On Error GoTo errstr:
FileNo = FreeFile
sVar = Year_type & "_" & Month_type & "_" & day_type
Open App.Path & "\" & sVar & ".txt" For Input As #FileNo
Do Until EOF(FileNo)
Line Input #FileNo, sVarData
Call Data1
Loop
errstr:
Close #FileNo
Next
全站熱搜
留言列表