Check file exists before reading it

Author: hilkoc

src/vbaDeveloper.xlam/NamedRanges.bas

@@ -22,15 +22,17 @@ Public Sub importNamedRanges(wb As Workbook)
 
     Dim fileName As String
     fileName = importDir & NAMED_RANGES_FILE_NAME
-
     Dim fso As New Scripting.FileSystemObject
-    Dim inStream As TextStream
-    Set inStream = fso.OpenTextFile(fileName, ForReading, Create:=False)
-    Dim line As String
-    Do Until inStream.AtEndOfStream
-        line = inStream.ReadLine
-        importName wb, line
-    Loop
+    If fso.FileExists(fileName) Then
+        Dim inStream As TextStream
+        Set inStream = fso.OpenTextFile(fileName, ForReading, Create:=False)
+        Dim line As String
+        Do Until inStream.AtEndOfStream
+            line = inStream.ReadLine
+            importName wb, line
+        Loop
+        inStream.Close
+    End If
 End Sub
 
 

src/vbaDeveloper.xlam/ThisWorkbook.sheet.cls

@@ -16,7 +16,9 @@ End Sub
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Debug.Print "vbaDeveloper thisWorkbook_BeforeClose()"
     menu.deleteMenu
-    customAction.beforeClose
-    Set customAction = Nothing
+    If Not customAction Is Nothing Then
+        customAction.beforeClose
+        Set customAction = Nothing
+    End If
     Set listener = Nothing
 End Sub