Приветствую.
Господа прощу помощи в решении проблемы.
Нужно из vbs запустить макрос из книги personal.xlsb для открытого файла.
При первом запуске все работало нормально, но после того как начал подкручивать макрос, стал замечать, что он(макрос) запускается старый.
После переименования макроса в личной книге, vbs мне выдал что он не может найти вообще его.
То что он там есть это факт.
Такое ощущение, что файл personal.xlsb переехал в кеш и оттуда все время открывается. (Но стоит задать старое имя и макрос работает.)
Помогите разрулить данный вопрос.
Текст макроса.
Господа прощу помощи в решении проблемы.
Нужно из vbs запустить макрос из книги personal.xlsb для открытого файла.
При первом запуске все работало нормально, но после того как начал подкручивать макрос, стал замечать, что он(макрос) запускается старый.
После переименования макроса в личной книге, vbs мне выдал что он не может найти вообще его.
То что он там есть это факт.
Такое ощущение, что файл personal.xlsb переехал в кеш и оттуда все время открывается. (Но стоит задать старое имя и макрос работает.)
Помогите разрулить данный вопрос.
Текст макроса.
Код |
---|
Const xlDelimited = 1 Const xlNormal = -4143 Dim Excel Set Excel = CreateObject("Excel.Application") Excel.DisplayAlerts = False Excel.Visible = True With Excel .Workbooks.Open "C:\1.csv" .Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True .ActiveWorkbook.SaveAs .ActiveWorkbook.Path & "\1.xls", xlNormal .Workbooks.Open ("c:\Program Files (x86)\Microsoft Office\Office15\XLSTART\PERSONAL.xlsb") .Workbooks.Open ("c:\1.xls") .Run("'PERSONAL.xlsb'!Perebor_new") End With Excel.DisplayAlerts = True '~~> Cleanup Set Excel = Nothing |