Доброго всем дня. Очень надеюсь, что среди знатоков есть специалисты по данному языку.
Проблема у меня следующая. Требуется в vbs-скрипте прописать процедуру открытия книги и запуска макрос. С этим справиться удалось.
Но вот как открыть документ, в режиме редактирования, если стоит соответствующий пароль. Метод vbа
тут не подошел.
Проблема у меня следующая. Требуется в vbs-скрипте прописать процедуру открытия книги и запуска макрос. С этим справиться удалось.
Код |
---|
Option Explicit Dim app, ChangePhonesFolder, ChangePhonesFileName, inChangePhonesFullFileName, InFolderName, objExcel Dim f, s, b, i, my_time, logs set objExcel = CreateObject ("Excel.Application") app="С:\EXT\UnZip.xlsb" on error goto 0: TI_Avaya() sub TI_Avaya() objExcel.Visible = true objExcel.Workbooks.Open (app) objExcel.run "Time_Indicators" objExcel.Workbooks("UnZip.xlsb").Close (true) objExcel.Quit end sub |
Но вот как открыть документ, в режиме редактирования, если стоит соответствующий пароль. Метод vbа
Код |
---|
objExcel.Workbooks.Open (app, writerespassword:="123") |
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.