Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.
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
|How can I sort the data shown in Sheet 1 and copy it to Sheet 2?||8||21|
|Excel 2003 Conditional Formatting for Jan 1||3||13|
|How do I carry conditional formatting through an entire section in EXCEL based on comparing values every two lines||4||12|
|Excel Macro to Extract Specific Columns to a New Tab||4||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!