Re: How do you disable save file dialog?

From: Earl Kiosterud (nothanks_at_nospam.com)
Date: 02/09/05 

Date: Wed, 9 Feb 2005 09:51:05 -0500

Chris,

To prevent the save dialog:
Workbooks(1).Saved = True

To save the file as csv, use something like:
NameSave = "C:\MyFolder\MyFileName.xls"
Application.DisplayAlerts = False ' prevent messages
Workbooks(1).SaveAs _
  Filename:= NameSave, FileFormat:=xlCSV, _
  CreateBackup:=False
Application.DisplayAlerts = True ' reset messages 

-- 
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------
"someone" <someone@dot.net> wrote in message 
news:zkeOd.40834$NF6.31854@fe07.lga...
> Using some sample VB Script code, I've come up with a script that will 
> pull some data and print out the resulting workbook.  As odd as this as 
> this may or may not sound, I don't want or need the workbook to be saved 
> for archival purposes.  The long term goal is to put this script on a 
> schedule as we need a report to print every 30 minutes or so.  Problem: 
> everytime the script closes the workbook and excel, Excel prompts the user 
> to save the file. This is not acceptable if we want this to run in an 
> automated.  How can I get this prompt to go away?  I'm pretty sure Excel 
> is generating the prompt. Seems to me there is a setting in there 
> somewhere to disable this prompt but I can't find it.  Any thoughts would 
> be appreciated.  I doubt anyone would need to see the script but here it's 
> pasted below.  I just had a thought: I wonder if I set the excel 
> application to nothing without closing the workbook and Excel if that 
> would do what I want?  Hmmm...  This script is run by using cscript from 
> the command prompt.  As an aside since I'm asking questions:  how is it 
> possible to save the data in a Comma Seperated File (CSV)?  Thanks in 
> advance for any suggestions!
>
> Dim oExcel
> Dim strFileName
> strFileName = "test.xls"
> Dim strNewName
>
> '--Find the current date and time so this info can be appended to the file 
> name when
> '--the excel *** is saved
> strNewName = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " "
> strNewName = strNewName & Hour(Now()) & "." & Minute(Now()) & " " & 
> strFileName
>
> '--Start Excel and run it invisibly
> Set oExcel = CreateObject("Excel.Application")
> oExcel.Visible = False
>
> '--Open a workbook preconfigured with ActiveFactory Workbook functions.
> '--using "oExcel.Workbooks.Add [Path to file]"
> '--Note: The act of opening the workbook will cause the functions to 
> update
> oExcel.Workbooks.Add "D:\script\test.xls"
>
> '--Print the file
> oExcel.Workbooks(1).Printout
>
> '--Save the workbook in htm format (44), commented out for now
> '----oExcel.Workbooks(1).SaveAs "D:\script\save\" & strNewName, 44
>
> '--Close the workbook and Excel
> oExcel.Workbooks.Close
> oExcel.Quit
> Set oExcel = Nothing
>
>
> Chris Smith
>