The object invoked has disconnected from its clients.

[azizrasul]

Does anyone know why I get the error

-2147417848: Automation error
The object invoked has disconnected from its clients.

on the line indicated in the snippet of code?

    strWorksheet = "tblComputerSystemInformation"
    strMotherBoardSerialNumber = MotherBoardSerialNumber()
    Set ws = ThisWorkbook.Sheets("tblLicences")
    
    If intLicences < 4 Then
        With ThisWorkbook.Sheets("tblLicences")
            For lngNewRow = 2 To 11
                If .Range("A" & lngNewRow) = "" Then
                    Exit For
                Else
                End If
            Next lngNewRow
            
            .Range("A" & lngNewRow) = strMotherBoardSerialNumber     'ERRORS HERE
            .Range("B" & lngNewRow) = GetBIOSSerialNumber()             
            .Range("C" & lngNewRow) = GetHardDiskSerialNumberHex1("C:\") 
            
            ThisWorkbook.Sheets(strWorksheet).Select
            
            With ActiveSheet.ListObjects(strWorksheet).Range
                .AutoFilter Field:=1, Criteria1:=strMotherBoardSerialNumber
                .AutoFilter Field:=2, Criteria1:="Processor"
                .AutoFilter Field:=3, Criteria1:="ProcessorId"
            End With
        
            With Worksheets(strWorksheet).AutoFilter.Range
                ws.Range("D" & lngNewRow) = Range("D" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2 'PROCESSOR SERIAL NUMBER, processorSerialNumber
            End With
                
            Selection.AutoFilter

 

[azizrasul]

I did add the addin called PowerQuery which I don't know how to get rid of as I don't require it anymore.

I have also tried something like

.Range("A" & lngNewRow) = "123490EN400015"

Same problem.

 

[azizrasul]

I have also tried something like

.Range("A" & lngNewRow) = "123490EN400015"

Same problem.

When I try add a second row of data in the Excel table, then it behaves in this way. If I run the code to enter data in the first row, then it works fine.

 

[Anthony47]

I have also tried something like

.Range("A" & lngNewRow) = "123490EN400015"

Same problem.

Do you mean that you get, on that instruction, the error "2147417848: Automation error - The object invoked has disconnected from its clients" ?

 

[azizrasul]

Do you mean that you get, on that instruction, the error "2147417848: Automation error - The object invoked has disconnected from its clients" ?

Yes
This is the first time I have dealt with Excel tables and I'm thinking it's that what's causing the problem but I don't know how.

 

[azizrasul]

I ended up deleting the Excel table and just created a sheet and the code worked.