Получение ошибки "Недопустимый запрос. Sub или функция не определена в PPT VBA" - PullRequest
Новая
       10

Получение ошибки "Недопустимый запрос. Sub или функция не определена в PPT VBA"

0 голосов
/ 25 февраля 2019

Я написал код для открытия презентации PPT в моей системе и храню только имя файла ppt в переменной.Этот файл PPT вызовет еще один сохраненный модуль.Мой код приведен ниже: 

Sub PPTTest()
  Dim PPT As Object

  Set PPT = CreateObject("PowerPoint.Application")

  Dim fldr As FileDialog
  Dim sItem As String
  Set fldr = Application.FileDialog(msoFileDialogOpen)
  With fldr
    .Title = "Select a File"
    .AllowMultiSelect = False
    .InitialFileName = ""
    If .Show <> -1 Then Exit Sub
    sItem = .SelectedItems(1)
  End With
  Set fldr = Nothing


  PPT.Presentations.Open sItem, , , False
  Filename = Mid$(sItem, InStrRev(sItem, "\") + 1, Len(sItem))


  PPT.Run "fileName!Module1.KillSpecificSlide"

 End Sub

Но после отладки в строке 

PPT.Run "fileName!Module1.KillSpecificSlide"

он показывает ошибку

Неверный запрос.Sub или функция не определены.

Когда я написал тот же код, что и 

PPT.Run "BOD.pptx!Module1.KillSpecificSlide"

, он работает нормально.Но когда я сохраняю то же имя в переменной и пропускаю его через код, это показывает ошибку.

Как решить эту проблему?

...