Этот Sub должен сохранить ажурную книгу на сайте share-point и назвать ее для пользователя.
Я знаю, что требуемый объект - либо от орфографической ошибки, либо от ссылки на несуществующий объект. Я не вижу никаких орфографических ошибок с приведенным ниже, и я думаю, что я объявил четыре переменные, используемые для построения линии .SaveAs.
Чего мне не хватает?
Это строка, которая выдает ошибку:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Полный код файла сохранения:
Sub Save_To_Sharepoint()
Const FileExtStr As String = ".xlsm"
Const FileFormatNum As Long = 52
Dim TempFilePath As String
Dim TempFileName As String
TempFilePath = ("\\sharepoint\goes\here") & "\"
TempFileName = Range("A1").Text
'Build .SaveAs file Name based on variables established previously
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
End With
'Display successful submission message
MsgBox ("Thank you, your assessment has been successfully submitted.")
End Sub