Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Workbook_Open() 'This was set up using Microsoft ActiveX Data Objects 2.8 Library (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=SQLSERVER" 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
Join the community of 500,000 technology professionals and ask your questions.