Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Stops Prematurely
I'm running code that saves a workbook abd then it should build a string and
then save another workbook. The code stops after the first workbook is saved and the code never completes. Any suggestions on how to correct when using the following: ActiveWorkbook.SaveAs Filename:=XLSFILE, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'return to the XLS file and close it Windows(temp_xls_file).Activate Workbooks(temp_xls_file).Close SaveChanges:=False temp_file = "Hg Injection - " & the_sample_no & ".CSV" CSVFILE = "V:\" + temp_file 'save a copy of the CSV file so that the XLS file will be imported Windows("Hg Injection Exporter.xls").Activate ActiveWorkbook.SaveAs Filename:=CSVFILE, FileFormat:= _ xlCSVMSDOS, CreateBackup:=False -- Ray |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Stops Prematurely
Hi Ray,
Where does this code reside? --- Regards, Norman "Halray" wrote in message ... I'm running code that saves a workbook abd then it should build a string and then save another workbook. The code stops after the first workbook is saved and the code never completes. Any suggestions on how to correct when using the following: ActiveWorkbook.SaveAs Filename:=XLSFILE, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'return to the XLS file and close it Windows(temp_xls_file).Activate Workbooks(temp_xls_file).Close SaveChanges:=False temp_file = "Hg Injection - " & the_sample_no & ".CSV" CSVFILE = "V:\" + temp_file 'save a copy of the CSV file so that the XLS file will be imported Windows("Hg Injection Exporter.xls").Activate ActiveWorkbook.SaveAs Filename:=CSVFILE, FileFormat:= _ xlCSVMSDOS, CreateBackup:=False -- Ray |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Stops Prematurely
Halray,
If your code is in temp_xls_file then your problem is: When you SaveAs you change the name of the active workbook so it now becomes XLSFILE_ Windows(temp_xls_file).Activate will fail as there is no longer a file of this name open. Henry "Halray" wrote in message ... I'm running code that saves a workbook abd then it should build a string and then save another workbook. The code stops after the first workbook is saved and the code never completes. Any suggestions on how to correct when using the following: ActiveWorkbook.SaveAs Filename:=XLSFILE, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'return to the XLS file and close it Windows(temp_xls_file).Activate Workbooks(temp_xls_file).Close SaveChanges:=False temp_file = "Hg Injection - " & the_sample_no & ".CSV" CSVFILE = "V:\" + temp_file 'save a copy of the CSV file so that the XLS file will be imported Windows("Hg Injection Exporter.xls").Activate ActiveWorkbook.SaveAs Filename:=CSVFILE, FileFormat:= _ xlCSVMSDOS, CreateBackup:=False -- Ray |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Stops Prematurely
Thanks for the sugesstions - I found a work around (not sure if it's the best?)
I disabled alerts with: Application.DisplayAlerts = False then I saved all files as needed and quit Excel with: Application.Quit Thanks again for your time and efforts. -- Ray "Henry" wrote: Halray, If your code is in temp_xls_file then your problem is: When you SaveAs you change the name of the active workbook so it now becomes XLSFILE_ Windows(temp_xls_file).Activate will fail as there is no longer a file of this name open. Henry "Halray" wrote in message ... I'm running code that saves a workbook abd then it should build a string and then save another workbook. The code stops after the first workbook is saved and the code never completes. Any suggestions on how to correct when using the following: ActiveWorkbook.SaveAs Filename:=XLSFILE, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'return to the XLS file and close it Windows(temp_xls_file).Activate Workbooks(temp_xls_file).Close SaveChanges:=False temp_file = "Hg Injection - " & the_sample_no & ".CSV" CSVFILE = "V:\" + temp_file 'save a copy of the CSV file so that the XLS file will be imported Windows("Hg Injection Exporter.xls").Activate ActiveWorkbook.SaveAs Filename:=CSVFILE, FileFormat:= _ xlCSVMSDOS, CreateBackup:=False -- Ray |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Instead of debugging, code just stops running | Excel Discussion (Misc queries) | |||
VB Code stops working | Excel Programming | |||
Code stops at range | Excel Programming | |||
(trying again...) code stops executing | Excel Programming | |||
VBA code stops executing | Excel Programming |