Save As Dialog does not prompt for Web File Properties

R

randy.burns

I created some VBA code to Save an Excel workbook to a Sharepoint
Document Library.
When I use the file menu to save, after I click Save I am prompted to
enter values for the Web File Properties. Some of the properties are
custom and some are required.

The code below saves correctly but the Web File Properties dialog is
not displayed.

Thanks in advance!

Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog
Dim sPath As String

Set dlgSaveAs =
Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.InitialFileName = "http://hd.netropole.com/kb/Expense
Reports/" & Application.ActiveWorkbook.Name

dlgSaveAs.InitialView = msoFileDialogViewWebView

If dlgSaveAs.Show = -1 Then
sPath = dlgSaveAs.InitialFileName
Application.ActiveWorkbook.SaveAs sPath
End If

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top