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
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