|
▼う さん:
おはようございます。
On Errorを使うよりもファイルが存在するか否かを確認して
ファイルが無ければTodayフォルダをパスに割り当てた方がスマートかと思います。
P = "V:\" & U.Range("B3") & "\UNAUTH.DAT"
On Error GoTo TODAYFOLDER
Workbooks.OpenText P, STARTROW:=2, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar:=""
↓
P = "V:\" & U.Range("B3") & "\UNAUTH.DAT"
If Dir("V:\" & U.Range("B3") & "\UNAUTH.DAT") = "" Then
P = "V:\" & FldNm & "\UNAUTH.DAT"
End If
Workbooks.OpenText P, STARTROW:=2, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar:=""
又、
On Error GoTo TODAYFOLDER はTODAYFOLDER という行ラベルにジャンプする
という意味なので、TODAYFOLDER という行ラベルが無いとエラーになってしまいますよ。
On Errorで書きたいならこんな感じでいいのでは・・・。と思います。
On Error Resume Next
P = "V:\" & U.Range("B3") & "\UNAUTH.DAT"
Workbooks.OpenText P, STARTROW:=2, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar:=""
If Err Then
P = "V:\" & FldNm & "\UNAUTH.DAT"
Workbooks.OpenText P, STARTROW:=2, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar:=""
On Error GoTo 0
Err.Clear
End If
|
|