SaveAs in xlNormal Format
Is there a way of adding the = xlNormal from the first statement, to
the last row of the second statement. I've tried the obvious (I think) I'm trying to avoid the pop up ( this file already exists........), due to the double save I am currently doing. Thanks in advance. ' Save File in 2003 Format ActiveWorkbook.SaveAs FileFormat:=xlNormal ' Use Existing name, Modified by adding "J" at the end OldPath = ActiveWorkbook.Path & "\" OldName = ActiveWorkbook.Name NewPath = "C:\ZEXTRACT\" NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls" ActiveWorkbook.SaveAs NewName |
SaveAs in xlNormal Format
Hi BEEJAY
I'm trying to avoid the pop up ( this file already exists........), You can use this Application.DisplayAlerts = False 'Your save code Application.DisplayAlerts = True -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "BEEJAY" wrote in message ... Is there a way of adding the = xlNormal from the first statement, to the last row of the second statement. I've tried the obvious (I think) I'm trying to avoid the pop up ( this file already exists........), due to the double save I am currently doing. Thanks in advance. ' Save File in 2003 Format ActiveWorkbook.SaveAs FileFormat:=xlNormal ' Use Existing name, Modified by adding "J" at the end OldPath = ActiveWorkbook.Path & "\" OldName = ActiveWorkbook.Name NewPath = "C:\ZEXTRACT\" NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls" ActiveWorkbook.SaveAs NewName |
SaveAs in xlNormal Format
As always, thanks so much.
Often I can't see the trees for the forest jfs "Ron de Bruin" wrote: Hi BEEJAY I'm trying to avoid the pop up ( this file already exists........), You can use this Application.DisplayAlerts = False 'Your save code Application.DisplayAlerts = True -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "BEEJAY" wrote in message ... Is there a way of adding the = xlNormal from the first statement, to the last row of the second statement. I've tried the obvious (I think) I'm trying to avoid the pop up ( this file already exists........), due to the double save I am currently doing. Thanks in advance. ' Save File in 2003 Format ActiveWorkbook.SaveAs FileFormat:=xlNormal ' Use Existing name, Modified by adding "J" at the end OldPath = ActiveWorkbook.Path & "\" OldName = ActiveWorkbook.Name NewPath = "C:\ZEXTRACT\" NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls" ActiveWorkbook.SaveAs NewName |
All times are GMT +1. The time now is 08:13 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com