Thread: 2 things
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Michael Wise Michael Wise is offline
external usenet poster
 
Posts: 5
Default 2 things

I can not get Excel to quit. I am using application.quit
second item is after this code.
Here is code:

Open word
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "c:\PSV Travelog\Travelog
Template.dot"
WordApp.Visible = True
WordApp.Documents("Travelog Template.dot").Close
SaveChanges:=False

'-------------------
'Close Excel

Application.DisplayAlerts = False
'Workbooks("PSV WO and Specs.xls").Close 'Close
Excel
Application.Quit

'------------------
'Program Ending

' --- Do not modify ---
GoTo EndMain
Main_Err:
Main_Error_Handler

EndMain:

End_Text = "Macro Finished" & vbCrLf _
& "Time Started :" & Start_Time & vbCrLf _
& "Time Completed:" & Now & vbCrLf _
& "Your File is Open in word you may print it
now!"
End_Macro End_Text
End Sub ' Main

second item- How can I delete an .csv file after a
mailmerge takes place in a .dot

Michael