I do not have a solution for your VBA code that fails to find an existing file, but I would add code for testing to see if several attempts at getting access to the file succeed. The test code uses the DIR command prior to opening the text file, and if the file is not found, makes 2 more attempts at finding the file. You may want to exit, as I have coded it, or continue in the procedure if DIR fails to locate the file.
This test process may give you some insight into what is going on: does the DIR test always succeed and Workbooks.OpenText still occasionally fail? Does using the DIR command clear up the problem completely? I guess there is no logical reason why it should, but running VBA code 100s of times and seeing it fail occasionally might need an illogical workaround.
Good luck.
Code:
Sub Test_Code()
Dim Newfile As String
Dim x As Integer
Sheets("Param").Select
Newfile = Range("H2").Value 'H2 = C:\LSicom\Raw\03611\P06_0030.dat
Sheets("P06_0030.csv").Select
x = 0
While Dir(Newfile) = ""
Application.Wait (Now + TimeValue("0:00:01"))
x = x + 1
If x > 2 Then
MsgBox "Could not find this file: " & Newfile
Exit Sub
End If
Wend
Workbooks.OpenText Filename:=Newfile
End Sub
dBforums
>
Run TIme Error- File Not Found when it exists
09-11-11, 17:21
Linear Mode
