Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.