0

Как настроить открытие файла в ексель через планировщик задач знаю, но как сделать так чтобы открылся файл ексель и автоматически вызвался макрос понять не могу.

В интернете видел что-то через vbs, но там предлагали сделать как-то без открытия самого ексель файла, потом еще видел способ добавления кода вызова макроса не в модуль, а на лист, через sub workbook_open(), но это не подходит.

Надо именно что бы открылся ексель файл, и при этом, при открытии вызвался макрос.

1
  • Назвать этот макрос Auto_Open. Он сам запустится при открытии файла.
    – Akina
    26 июл 2018 в 18:35

1 ответ 1

0

Необходимо воспользоваться вызовом процедуры через автозапуск Экселя:

Sub Auto_open()
     Procedure1 ("param1")

End Sub

Но надо учитывать, что система обеспечения безопасности офиса, как правило, не дает запускать скрипты. Значит нужно предварительно изменить параметры системы, чтобы обеспечить запуск.

Поэтому я для своих нужд таки написал VB-скрипт, который вызывает нужную мне процедуру "convertXLS" из файла .XLSM (в том же каталоге, где лежит скрипт), передавая необходимый параметр внутрь.Вот код:

Dim xlApp,xlBook
Dim remotePath

  remotePath = "\\server\share\2018\" 
Set fso = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("WScript.Shell")

 macros = fso.GetParentFolderName(WScript.ScriptFullName) & "\converter.xlsm"
  If (not fso.FolderExists(remotePath)) or (not fso.FileExists(macros)) Then    
   set shl = nothing
   set fso = nothing
   WScript.Quit 1
  End If

  set shl = nothing
  set fso = nothing

  Set xlApp = CreateObject("Excel.Application") 
  xlApp.Visible = true
  Set xlBook = xlApp.Workbooks.Open(macros, 0, True) 
  xlApp.Run "convertXLS",ucase(remotePath)
  xlApp.Quit 

 Set xlBook = Nothing 
 Set xlApp = Nothing 

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.