Hi Nate,

One way to handle this is to check for the existence of a specific
filename before you try to open and process it. I've modified your code
below to do this:

Sub Whatever()

LotFile = InputBox("Enter the file folder in that contains the Logs")
MyPath = "\\Shared Drive" & LotFile
Before = InputBox("Enter the beginning Lot File ")
After = InputBox("Enter the ending Lot File ")

For i = Before To After
MyFile = LotNumber & i & ".csv"
SaveFile = LotNumber & i
If Len(Dir$(MyPath & "\" & MyFile)) 0 Then
Workbooks.OpenText Filename:=MyPath & "\" & MyFile
'Code to format logs then hyperlink and and save them
End If
Next i

End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"BigNate " wrote in message
...
I have a question regarding Error handling, or possibly writing an if,
then statement to correct errors that I get when I open csv Files with
a macro. What I have is a machine that we download process logs from
that saves them in sequential order (ex. Lot0001, Lot0002, ect.). The
problem arises when only certain logs are downloaded (Ex. Lot0003,
Lot0004, Lot0007). The logs in sequential order format and run fine,
but after skipping over the first missed log, the macro errors out. I
tried to put an error handler in that takes it to the next "i" on an
error, but I am not sure that I did it right. I would be willing to
use an if, then statement if you can check to see if the csv file is
there or not, and the go to the next "i" if it is absent. Here is a
sample of my code, and any help is greatly appreciated!

On Error GoTo Failsafe


LotFile = InputBox("Enter the file folder in that contains the
Logs")

MyPath = "\\Shared Drive" & LotFile

Before = InputBox("Enter the beginning Lot File ")

After = InputBox("Enter the ending Lot File ")

For i = Before To After

MyFile = LotNumber & i & ".csv"

SaveFile = LotNumber & i

Workbooks.OpenText Filename:=MyPath & "\" & MyFile

'Code to format logs then hyperlink and and save them

Failsafe:

Next i

End Sub

Thanks again!


---
Message posted from http://www.ExcelForum.com/