Applicatin is closing automatically without throwing any exception.

Hi all,

I have devloped an application in VBA (Excel 2003) which imports lot of data (around 2,00,000 to 5,00,000 rows) from .csv files (as raw files) to .xls files.
These .xls file will be created month wise (date is avalilable in csv files). Tool also creates one log file in which tool writes the number of rows updated from each file with file name and also logs errors if any occured. At a time tool can import 32 files. Most of the raw files are more than 15 MB. Tool takes around 1/2 an hour to import each file. I am using error handeler in each and every function and subroutines, but some times tool gets close without throwing any exception.
The problem I am facing is some times tool suddenly gets closed while running which throwing any exception. From log file we can see that while importing which file tool got closed. And when we try to import the same file second time it gets imported without any error or without closing the tool.
One of our user using this tool in Excel 2010 and he is facing the issue "Automation error: The object invoked has disconnected from its clients". This error is repeating for him in every 2 to 3 days . Problem is also same here when he import the same file second time, tool imports it without any error. I am not able to understand problem and not even able to duplicate the error. Please suggest me something to resolve this issue.

Thanks in advance....

how are you doing the logging and what are you logging

Some of my questions/suggestions:-

Before importing the data check the number of rows of import data and the available rows of the appending file.

What is your actual file version?

Can you please share the main code which you use for looping through the folder for files and import the data?

Screenshots just giving an overview about the files and folders, but it will not help in fixing the exact issue

Just do right click on the modules and click Export and attached the exported files.

You state that "also logs errors if any occurred" but you don't.

If you wrote all that code you must be reasonably competent so I won't embarrass you with detail.

Check your handling of the error object after an error. And log all errors.

UnknownException:

    If Module2.Error_Flag = True Then
        Exit Function
    Else
    
        Module2.Error_Flag = True
        Call Module2.ErrorHandler(Err.Number, "Unable to extract codes from .csv file.")
    End If
End Function


Public Sub ErrorHandler(Error_Num As Integer, Error_Desc As String)

    Dim Prompt As String
    Dim Title As String
    Dim MyResponse As VbMsgBoxResult
    'Module2.Error_Flag = False
    Prompt = "The following error has occured:" & vbCrLf & Error_Desc & vbCrLf & "Process is Terminated.."
    Title = "Error"
    Application.ScreenUpdating = False
    Module2.Msgbox_Flag = True
On Error Resume Next

    Select Case Error_Num
        'Case Is = 9 'Subscript Out Of Range
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, MyErr.Description, Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "End Time" & " " & VBA.Time, Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Date : " & " " & VBA.Date, Module2.TxtFileName)
        Case Is = 75 'Path/File access error
            If Module2.AutoUpdate_Flag = False Then
                MsgBox "Don't have Path/file access..", vbExclamation, "Don't have Access permission"
            End If
            Call Module2.ToCreateLogFile(ThisWorkbook.Path, DELIMITER, Module2.TxtFileName)
            Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Process Terminated, Don't have Path/file access.", Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "End Time" & " " & VBA.Time, Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Date : " & " " & VBA.Date, Module2.TxtFileName)
            Call CloseAllFiles
            Exit Sub
        'Case Is = 1004
        '    MsgBox "Don't have Path/file access.", vbExclamation, "Access permission"
        '    Call Module2.ToCreateLogFile(ThisWorkbook.Path, DELIMITER, Module2.TxtFileName)
        '    Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Process Terminated, Don't have Path/file access.", Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "End Time" & " " & VBA.Time, Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Date : " & " " & VBA.Date, Module2.TxtFileName)
        '    Call CloseAllFiles
        '    Exit Sub
        Case Is = 7
            If Module2.AutoUpdate_Flag = False Then
                MsgBox "Error: Stack Overflow." & vbCrLf & "Please, split your report file in to two files or reduce number of rows.", vbCritical, "Out of Memory"
            End If
            Call Module2.ToCreateLogFile(ThisWorkbook.Path, DELIMITER, Module2.TxtFileName)
            Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Error: Stack Overflow: Please, split your report file in to two files or reduce number of rows.", Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "End Time" & " " & VBA.Time, Module2.TxtFileName)
            'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Date : " & " " & VBA.Date, Module2.TxtFileName)
            Call CloseAllFiles
            Exit Sub
        End Select
        Call Module2.ToCreateLogFile(ThisWorkbook.Path, DELIMITER, Module2.TxtFileName)
        Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Process Terminated, Unknown error has been detected.", Module2.TxtFileName)
        'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "End Time" & " " & VBA.Time, Module2.TxtFileName)
        'Call Module2.ToCreateLogFile(ThisWorkbook.Path, "Date : " & " " & VBA.Date, Module2.TxtFileName)
        If Module2.AutoUpdate_Flag = False Then
            MyResponse = MsgBox(Prompt, vbCritical, Title)
        End If

        Module2.Error_Flag = True

        Call CloseAllFiles
        Application.ScreenUpdating = False
End Sub

Guarav,

I contribute to this forum for a bit of light relief and getting to the bottom of your problem will take some work. Unfortunately for you I neither believe your statement that you wrote this nor do I think you have taken my advice to look at "use of the error object". If you had put in some effort and demonstrated that I might be inclined to help. The exhortation by you to "please explain me the exact mistake which I am doing and what should I do to make it work?" I just find irritating. I am unlikely to look at this thread again.

Good luck.