Всем привет!
Нужна ваша помощь. Есть замечательный скрипт Марчука, который открывает нужный Excel файл сразу с включенными макросами (код ниже, чуть переделал).
Подскажите, пожалуйста, возможно ли, что-то придумать, чтобы использовался только один файл? А не два, как в приведенном примере (xls и vbs).
Т.е. нужно открыть книгу сразу с включенными макросами (если они выключены).
Заранее спасибо за ответы.
Sub test()
Dim objXL
Dim Secur
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Secur = objXL.AutomationSecurity
objXL.AutomationSecurity = 1
objXL.Workbooks.Open (Replace(Wscript.ScriptFullName, "vbs", "xls"))
objXL.AutomationSecurity = Secur
End Sub
Нужна ваша помощь. Есть замечательный скрипт Марчука, который открывает нужный Excel файл сразу с включенными макросами (код ниже, чуть переделал).
Подскажите, пожалуйста, возможно ли, что-то придумать, чтобы использовался только один файл? А не два, как в приведенном примере (xls и vbs).
Т.е. нужно открыть книгу сразу с включенными макросами (если они выключены).
Заранее спасибо за ответы.
Sub test()
Dim objXL
Dim Secur
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Secur = objXL.AutomationSecurity
objXL.AutomationSecurity = 1
objXL.Workbooks.Open (Replace(Wscript.ScriptFullName, "vbs", "xls"))
objXL.AutomationSecurity = Secur
End Sub
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?