Private Sub Workbook_Open() 'This was set up using Microsoft ActiveX Data Objects version 2.8 (In Microsoft Visual Basic, select Tools, References) Worksheets("Sheet1").Range("B2:BZ65535").Clear Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim stSQL As String Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Const stADO As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI; " & _ "Persist Security Info=False; " & _ "Initial Catalog=CustomerComplaints; " & _ "Data Source=BETASERVE" Set wbBook = ActiveWorkbook Set wsSheet = wbBook.Worksheets(1) With wsSheet Set rnStart = .Range("B2") End With stSQL = "SELECT * FROM Complaints ORDER BY Location, DateReceived" Set cnt = New ADODB.Connection With cnt .CursorLocation = adUseClient .Open stADO .CommandTimeout = 0 Set rst = .Execute(stSQL) End With 'Here we add the Recordset to the sheet from A1 rnStart.CopyFromRecordset rst 'Cleaning up. rst.Close cnt.Close Set rst = Nothing Set cnt = Nothing End Sub
|need summation of cells of the same row having same column difference between the two cells||6||35|
|Delete texts with font color||16||30|
|ADD New Entries||7||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!