Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.
'sExcel is the full path of the Excel file. Public Sub FixExcel(sExcel as String) Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim cell As Object Dim Range As Object Set xlApp = CreateObject("Excel.Application") 'Opens Excel TEMPlate always from the C:\ to reduce traffic Set xlBook = xlApp.Workbooks.Open(sExcel) Dim k as Long Dim sRange, sRange2 as String k = 8 sRange = Col_Letter(k) sRange2 = Col_Letter(16) With xlApp ' deletes columns 8 through 16 For Each cell In Range(sRange & ":" & sRange2) If cell.MergeCells = True Then cell.UnMerge cell.EntireColumn.Delete Shift:=-4159 'xlToLeft End If Next End With xlBook.Save xlBook.Close Set xlBook = Nothing Set xlApp = Nothing End Sub Function Col_Letter(ByVal ColumnNumber As Long) As String If ColumnNumber > 26 Then ' 1st character: Subtract 1 to map the characters to 0-25, ' but you don't have to remap back to 1-26 ' after the 'Int' operation since columns ' 1-26 have no prefix letter ' 2nd character: Subtract 1 to map the characters to 0-25, ' but then must remap back to 1-26 after ' the 'Mod' operation by adding 1 back in ' (included in the '65') Col_Letter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _ Chr(((ColumnNumber - 1) Mod 26) + 65) Else ' Columns A-Z Col_Letter = Chr(ColumnNumber + 64) End If End Function
|HOW D I CLEAR PICTURES IN IMAGE CONTROL AND COMMENTS IN CELLS WHEN WORKBOOK IS OPENED||18||47|
|Code not working properly when in macro module||18||35|
|MS Access VBA Code for fields that are null and prevent the code from continuing||7||14|
|MS Access Query Help With Updating Information To Specific IDs Criteria||6||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!