Can't save file using a msoFileDialogSaveAs

BrianHoard · #1 01-07-2023, 08:20 PM

Does this help?

Code:

Sub ShowSaveAsDialog()
  Dim dlgSaveAs As FileDialog
  Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
  dlgSaveAs.InitialFileName = "test.docx"
  
  If dlgSaveAs.Show <> 0 Then
    dlgSaveAs.Execute
  End If
  
End Sub

Franci · #2 01-09-2023, 05:05 AM

Quote:

Originally Posted by BrianHoard

Does this help?

Code:

Sub ShowSaveAsDialog()
  Dim dlgSaveAs As FileDialog
  Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
  dlgSaveAs.InitialFileName = "test.docx"
  
  If dlgSaveAs.Show <> 0 Then
    dlgSaveAs.Execute
  End If
  
End Sub

Thank you Brian, that works.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2000 Backup File Modification Date Not Changing When I Save an XLS File	skeezix	Excel	3	01-10-2021 04:51 PM
save dialog box promt doesn't save file	brmveen	Word VBA	2	11-04-2015 12:51 AM
Auto Save Every Page(s) as a separate file, and name each new file automatically by the first line?	commissarmo	Word VBA	3	03-14-2015 12:53 AM
error: You are attempting to save a file format that is blocked by file block setting	zatlas1	Office	8	04-28-2012 02:37 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM