We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'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.
|Macro to convert table into pivot tables||25||71|
|copy down array||24||36|
|Records being deleted when Condition Not Met||30||28|
|Word 2016 (32-Bit) - Hangs when attempting to select an existing list for Mailings||13||32|
Join the community of 500,000 technology professionals and ask your questions.