Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to transfer values from one userform in excel to another||14||43|
|Excel - Active X Checkboxes Groups||45||36|
|Aggregate data in an EXCEL file.||12||44|
|Looping through files in a folder VBA||3||11|
Join the community of 500,000 technology professionals and ask your questions.