Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
sub get_diff() Dim wb as workbook, comp_sql as string, comp_rs as new adodb.recordset, new_ws as worksheet Dim objconn As New ADODB.Connection Set wb = ThisWorkbook Set new_ws = wb.Worksheets("New") With objconn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Extended Properties").Value = "Excel 8.0;HDR=Yes;IMEX=1" .Open wb.FullName End With comp_sql = "SELECT a.sid, b.sd " & _ "FROM [Latest$] as a LEFT JOIN [Previous$] as b ON a.sid = b.sid " & _ "WHERE b.sid IS NULL " comp_rs.Open comp_sql, objconn new_ws.Cells.ClearContents If comp_rs.State <> 0 Then If Not (comp_rs.EOF And comp_rs.BOF) Then new_ws.Cells(1, 1).Value = "sid" new_ws.Cells(2, 1).CopyFromRecordset comp_rs End If End If Set comp_rs = Nothing
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!