Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save Dialog pops up now - Excel 2007
I have a macro that creates my file and then saves it. I've just
recently upgraded to Office 2007, and now Excel prompts me to save the file when it didn't before. I'm doing a SaveAs, and specifying the path\filename. Can I turn off the "Do you want to save" message and just do it? Code follows: Public Sub SaveExcelReport(strFullName As String) Dim objFS As Object Dim strFolder As String On Error GoTo SaveExcelReport_Error: ''Create reports directory if it doesn't exist Set objFS = CreateObject("Scripting.FileSystemObject") strFolder = Left$(strFullName, InStrRev(strFullName, "\", -1, vbTextCompare)) If Not objFS.folderexists(strFolder) Then objFS.createfolder (strFolder) End If ''Overwrite without warning xlaReport.DisplayAlerts = False xlaReport.ActiveWorkbook.SaveAs strFullName, xlExcel12, "", "", False, False, xlNoChange, xlLocalSessionChanges ''Old (Access 2003) version 'xlaReport.ActiveWorkbook.SaveAs strFullName, xlNormal, "", "", False, False xlaReport.DisplayAlerts = True Exit Sub SaveExcelReport_Error: Debug.Print Err.Description Resume Next End Sub Thanks for taking the time to look, Chris M. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save Dialog pops up now - Excel 2007
On Jan 7, 2:22*pm, mcescher wrote:
I have a macro that creates my file and then saves it. *I've just recently upgraded to Office 2007, and now Excel prompts me to save the file when it didn't before. I'm doing a SaveAs, and specifying the path\filename. *Can I turn off the "Do you want to save" message and just do it? *Code follows: Public Sub SaveExcelReport(strFullName As String) * Dim objFS As Object * Dim strFolder As String * On Error GoTo SaveExcelReport_Error: ''Create reports directory if it doesn't exist * Set objFS = CreateObject("Scripting.FileSystemObject") * strFolder = Left$(strFullName, InStrRev(strFullName, "\", -1, vbTextCompare)) * If Not objFS.folderexists(strFolder) Then * * objFS.createfolder (strFolder) * End If ''Overwrite without warning * xlaReport.DisplayAlerts = False * xlaReport.ActiveWorkbook.SaveAs strFullName, xlExcel12, "", "", False, False, xlNoChange, xlLocalSessionChanges ''Old (Access 2003) version * 'xlaReport.ActiveWorkbook.SaveAs strFullName, xlNormal, "", "", False, False * xlaReport.DisplayAlerts = True * Exit Sub SaveExcelReport_Error: * Debug.Print Err.Description * Resume Next End Sub Thanks for taking the time to look, Chris M. I did try changing the file type to xlWorkbookNormal, and then it saves fine, but when I double click on the resulting file, I get an error message "Excel cannot open the file XXXXXX.xlsx because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file" sigh.... Thanks! Chris M. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to capture Excel Save As dialog box? | Excel Programming | |||
Choose a digital certificate pops up when trying to save excel file from browser | Excel Discussion (Misc queries) | |||
Save Excel Worksheet As CSV - No Save As Dialog | Excel Programming | |||
How do I display a dialog box that pops up when you first open exc | Excel Discussion (Misc queries) | |||
Excel Save pops up when unloading Addin file | Excel Programming |