Загрузить Active PPT в Sharepoint

Я пытаюсь загрузить активную презентацию на sharepoint и столкнуться с проблемами с кодом. Ниже приведен сценарий. Пожалуйста, помогите исправить:

Sub Saveuploadppt() 'Dim newPowerPoint As PowerPoint.Application Dim filenm As Variant Dim month As String Dim d As String Dim powerpoint As Object month = Format(Date - 1, "mmm'yy") d = Format(Date - 1, "mm-dd-yyyy") filenm = "Control Dashboard " & month & "MTD_" & d & ".pptx" MsgBox filenm powerpoint.Application.ActivePresentation.SaveAs "File path "", 1 End Sub 

Привет ниже – это решение 🙂

 Sub Saveuploadppt() 'Dim newPowerPoint As PowerPoint.Application Dim filenm As Variant Dim month As String Dim d As String Dim powerpoint As Object month = Format(Date - 1, "mmm'yy") d = Format(Date - 1, "mm-dd-yyyy") filenm = "Control Dashboard " & month & "MTD_" & d & ".pptx" MsgBox filenm Dim ppApp As powerpoint.Application Set ppApp = GetObject(, "PowerPoint.Application") PpApp.ActivePresentation.SaveAs "path" & filenm & "", 1 End Sub 
Interesting Posts

Использование функции RangetoHtml и Excel не будет закрываться после выполнения функций

Просеивание всех доступных критериев автофильтра по одному в vba

Управляющий файл для макроса Excel

Формула / Функция, чтобы определить, одинаковы ли все ячейки, но игнорирование пробелов

Возьмите гиперссылку Excel и вставьте в таблицу PowerPoint

VBA Loop через узлы XML с помощью SelectSingleNode

Невозможно генерировать файл excel в Windows 10 с использованием IE11 время от времени

Вычитание DECTIME EXCEL VBA

Сохранять изображения в заголовках Excel с использованием Apache POI

Мне нужно запустить цикл, который примет значение ячеек и сохранит его на другом, если там что-то есть, а затем проверьте следующую строку

Excel VBA – вставка значений в многоколоночный combobox

Связанная с Excel база данных dbf с нулевым / пустым, SQL-запрос не работает

Выпадающий список Excel с условными значениями

Проблема с макросом при чтении данных из txt-файла и сохранении его в файле excel

Как оценивать значение строки как формулу в excel

Давайте будем гением компьютера.