Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|In Excel 2007 in data validation list, why does Excel perform a calculation when entering 2: 1 in the data validation list and how should I change this so no calculation is performed?||2||23|
|Excel VBA - need a reliable method for SendKeys Number lock||4||33|
|Bold cell contents if the cell contents starts with a number using VBA||2||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!