Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Speed up Program Process
I have a program (see program below) that sometimes takes several minutes to
run . I wonder if there is any way to speed up the program. Thanks in advance. Maperalia Option Explicit Sub OpenReport() Dim wordApp As Object Dim fNameAndPath As String Dim Filename As String Dim sPath As String Dim WO As String Dim Progname As String Dim myDateTime As String Application.ScreenUpdating = False WO = Worksheets("Template").Range("A1") myDateTime = Format(Worksheets("Template").Range("A2").Value, "yyyymmdd") Filename = "" & WO & "_M_" & myDateTime & "" Dim sDocName As String sDocName = Replace(sPath, ".xls", ".doc") fNameAndPath = "S:\Test\" & Filename & ".doc" Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open (fNameAndPath) wordApp.Visible = True wordApp.Activate End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
WORD VBA program, can only process 50 documents at a time. | Excel Discussion (Misc queries) | |||
Speed up the process | Charts and Charting in Excel | |||
How to count process running time ( process not finished) | Excel Programming | |||
Question to speed up a process - | Excel Programming | |||
program speed problem | Excel Programming |