Importing files when a file may not exist

Sure, all you have to do is check to see if the file exists before doing the import.  Here is an example for you.  The function will return true if the file exists and false if it doesn't.  If you don't include the path information the it will look for the file in the project folder, if the files are stores somewhere else then include the path info.

Sub Main
	Dim sFiles(2) As String 'array to hold the list of files
	Dim i As Integer 'interger used for a loop
	Dim bReturn As Boolean 'boolean to see if file exists
	
	'list of files
	sFiles(0) = "File1.IMD"
	sFiles(1) = "File 2"
	sFiles(2) = "File 3"
	
	'loop through the array to see if the file exists
	For i = 0 To UBound(sFiles)
		bReturn = FileExists(sFiles(i))
		If bReturn Then
			MsgBox sFiles(i) & " file exists"
		Else 
			MsgBox sFiles(i) & " file doesn't exist"
		End If
	Next i
End Sub

Function FileExists(FilePath)
	Set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(FilePath) Then
		FileExists=True
	Else
		FileExists=False
	End If
End Function

Sure, just remove the lines with the msgbox and on the line that has the file exist just insert your code to do the import.