Блог

Я пытаюсь запустить макрос в нескольких файлах. Я уже использовал этот скрипт раньше, и он работал, но, может быть, я что-то случайно изменил? Проблема, с которой я сталкиваюсь, заключается в том, что я получаю сообщение об ошибке «PERSONAL.XLSB не может быть найден, возможно ли, что он был перемещен…» Однако я использую полный путь к файлу .xlsb и запускаю макрос из этого файла. Это мой сценарий:

 'Sub SHELLforMacros()

   Dim wbMatrix As Workbook
   Dim strFileName As String
   Dim strPath As String
   Dim strExt As String
   Dim objWorkbook As Workbook
   Dim ws As Worksheet

    'This is the folder of files it needs to run through:
      strPath = "C:UsersmynameDesktopAll_mricgcm3_files45Fall45test"
      strExt = "csv"

      strFileName = Dir(strPath amp; "*." amp; strExt)

      While strFileName <> ""
      
           Set wbMatrix = Workbooks.Open(strPath amp; strFileName)
           'Set objWorkbook = ActiveWorkbook

         Application.Run "C:UsersmynameAppDataRoamingMicrosoftExcelXLSTARTPERSONAL.XLSB'!Graph_NEW"

           wbMatrix.ActiveWorkbook.Save
           wbMatrix.Close SaveChanges:=True

            strFileName = Dir
      Wend
End Sub
 

Я также попытался поместить файл PERSONAL.XLSB в ту же папку, что и файлы, которые ему необходимо запустить (и изменить путь, чтобы отразить это). И я попытался запустить или запустить его из одного из файлов в папке, а не из ЛИЧНОГО файла.XLSB, не используя полный путь. Я не понимаю, почему его нельзя найти. Спасибо.

Запуск макроса из другой книги может быть простым способом, который я попытаюсь описать на следующем шаге.

Но запуск «макроса в нескольких файлах» не означает никаких изменений с точки зрения вызова макроса. Вы не показали код макрокоманды, но если он ссылается ThisWorkbook на тот, который должен быть обработан, он должен ссылаться на необходимый ( ActiveWorkbook или wb , если ранее он был Set ).

Если «Я запускаю макрос из этого файла» означает запуск макроса из «PERSONAL.XLSB», он должен просто называться как:

   Graph_NEW
 

как это уже было предложено. Если вы настаиваете на использовании Application.Run , даже если в этом нет необходимости, вы можете попробовать:

   Application.Run "Graph_NEW"
 

Теперь, если вы запускаете код в другой книге и вам нужно запустить макрос из «PERSONAL.XLSB», самый простой способ-использовать:

   Application.Run "PERSONAL.XLSB!Graph_NEW"
 

Конечно, «ЛИЧНЫЙ.XLSB» должен быть открыт.

Если вы настаиваете на использовании полного пути «PERSONAL.XLSB», он также будет работать, и вы можете использовать что-то подобное с тем, что вы пытаетесь. Преимущество заключается в том, что, если книга закрыта, она будет открыта для запуска макроса:

 Application.Run 
  Application.Run "'C:UsersmynameAppDataRoamingMicrosoftExcelXLSTARTPERSONAL.XLSB'!Graph_NEW"
 

В вашем коде отсутствует префикс "'" . Он будет работать без него, если в полном пути к книге нет пробелов, но вы должны удалить тот, который был перед «!»… В вашем случае, если «мое имя» не содержит пробелов, оно может отсутствовать.

Вы также можете добавить ссылку на VBAProject «Personal.xlxb» и вызвать макрос, как вы делаете в рабочей книге. Для этого предварительно измените начальное/существующее стандартное имя в чем-то вроде «PersVBProject» (щелкните правой кнопкой мыши проект в VBE «Обозреватель проектов», выберите » Свойства VBAProject…», измените существующее имя и нажмите «ОК»).

Итак, просто назовите это как:

    Graph_NEW