See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
'This Code has the User open the CSR1 request form and 'then embeds it in a new excel sheet called CSR1 in the Fiscal Tool Sub AddCSR1() Dim FullFile As Variant Dim work_book As Workbook Dim last_sheet As Worksheet Dim WS As Worksheet Dim OLEWd As OLEObject Dim WD As Document Application.ScreenUpdating = False Set work_book = Application.ActiveWorkbook Set last_sheet = work_book.Sheets(work_book.Sheets.Count) Set WS = work_book.Sheets.Add(After:=last_sheet) WS.Name = "CSR1" FullFile = Application.GetOpenFilename _ (" WORD files(*.doc),*doc", 1, "SELECT and OPEN the CSR1 File", , False) If VarType(FullFile) = vbBoolean Then MsgBox "No File Specified", vbExclamation Exit Sub End If With OLEWd Set OLEWd = ActiveSheet.WS.OLEObjects.Add(Filename:=FullFile, Link:=False, DisplayAsIcon:=False) OLEWd.Verb xlVerbOpen OLEWd.Name = "CSR1" 'OLEWd.Width = 400 'OLEWd.Height = 800 'OLEWd.Top = 30 Set WD = OLEWd.Object End With Set WS = Nothing Set FullFile = Nothing Set OLEWd = Nothing Application.ScreenUpdating = True End Sub
|Compile Error: Expected List Separator or) error message||5||30|
|Excel VBA - copying formats||7||22|
|Word 2016 - Comments on one page contracted||2||29|
|File size limit in SharePoint 2010||3||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!