Re: How do you disable save file dialog?

From: someone (someone_at_dot.net)
Date: 02/13/05 

Date: Sat, 12 Feb 2005 19:02:56 -0500

Thanks! I'll give it a shot.

Chris Smith

"Earl Kiosterud" <nothanks@nospam.com> wrote in message
news:%23xdtLbrDFHA.3728@TK2MSFTNGP14.phx.gbl...
> 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
>>
>
>

Loading