Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
'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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.