LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Things to do with the cells DDD Excel Discussion (Misc queries) 1 December 8th 08 01:05 AM
A few things Bryan De-Lara[_2_] Excel Worksheet Functions 6 November 3rd 08 04:58 PM
Top 10 Things To Look For In A Web Host best_hosting Excel Worksheet Functions 0 September 14th 08 03:01 PM
######THEY DO DIFFERENT THINGS TO GET IT############# keerthi Charts and Charting in Excel 0 April 30th 08 07:45 AM
Counting Various Things robzrob Excel Worksheet Functions 2 April 22nd 08 07:50 PM


All times are GMT +1. The time now is 07:06 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"