|
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 |
2 things
I thought this thread had already been discussed ??
Deleting a csv is no different to deleting any other file, do you mena from within Excel? "Michael Wise" wrote in message ... 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 ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
2 things
Would I be wrong in thinking this code is stored in the workbook called "PSV WO
and Specs.xls" - If so then read on, else ignore this note:- Think about it logically from a step by step basis, and concentrate solely on your Close Excel section, and keep in mind where this macro is actually stored:- Step1 'Close Excel Application.DisplayAlerts = False No problem so far, we've stopped the error messages Step2 'Workbooks("PSV WO and Specs.xls").Close 'Close OK, now we are closing this workbook (ie hint - the one that contains the macro that contains step3 to close Excel) Step3 Excel Application.Quit Now how much chance do you think you have of actually getting here, given what you have just done in step2 :-) -- Regards Ken....................... Microsoft MVP - Excel Sys Spec - Win XP Pro / XL 00/02/03 ---------------------------------------------------------------------------- It's easier to beg forgiveness than ask permission :-) ---------------------------------------------------------------------------- "Michael Wise" wrote in message ... 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 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.608 / Virus Database: 388 - Release Date: 03/03/2004 |
2 things
Nope wanna delete the .csv from within word.
-----Original Message----- I thought this thread had already been discussed ?? Deleting a csv is no different to deleting any other file, do you mena from within Excel? "Michael Wise" wrote in message ... 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 ----== Posted via Newsfeed.Com - Unlimited-Uncensored- Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- . |
2 things
Nigel,
I looked for deleting of files and only found issues with rows, colums and such. I want to delete a .csv file from within word and this .csv file is not open. It's the data file that is used for the mailmerge. After the mailmerge i'm done with this particular data in this file. -----Original Message----- I thought this thread had already been discussed ?? Deleting a csv is no different to deleting any other file, do you mena from within Excel? "Michael Wise" wrote in message ... 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 ----== Posted via Newsfeed.Com - Unlimited-Uncensored- Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- . |
2 things
Select it in Word's File Open menu and press the Delete button on the keyboard.
Or do you mean with a Word VBA macro ? Use the Kill command. -- HTH. Best wishes Harald Followup to newsgroup only please. "Michael Wise" wrote in message ... Nope wanna delete the .csv from within word. -----Original Message----- I thought this thread had already been discussed ?? Deleting a csv is no different to deleting any other file, do you mena from within Excel? "Michael Wise" wrote in message ... 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 ----== Posted via Newsfeed.Com - Unlimited-Uncensored- Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- . |
2 things
You'll need to make a reference to the Microsoft Scripting Runtime library
in the VBA editor -Tools-References menu item The basic operation is shown as follows...... Option Explicit Public fso As New FileSystemObject Public Sub DeleteFile() Dim xfile As String xfile = "C:\temp\temp.csv" If fso.FileExists(xfile) Then fso.DeleteFile (xfile) MsgBox "File " & xfile & " deleted" Else MsgBox "File " & xfile & " not found" End If End Sub Cheers Nigel wrote in message ... Nigel, I looked for deleting of files and only found issues with rows, colums and such. I want to delete a .csv file from within word and this .csv file is not open. It's the data file that is used for the mailmerge. After the mailmerge i'm done with this particular data in this file. -----Original Message----- I thought this thread had already been discussed ?? Deleting a csv is no different to deleting any other file, do you mena from within Excel? "Michael Wise" wrote in message ... 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 ----== Posted via Newsfeed.Com - Unlimited-Uncensored- Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- . ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
| All times are GMT +1. The time now is 07:15 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com