Страницы: 1
RSS
планировщик. проблемы запуска макроса
 
Всем привет.
Ребзи, подскажите, в чем ошибка:

написал vbs скрипт на запуск макроса (df), но почему-то не работает. макрос самый простой, просто записать цифру 5 в ячейке.
Код
Set objXL = CreateObject("Excel.Application")
objXL.Visible = TRUE
Set objWorkbook = objXL.Workbooks.Open("C:\Users\Tony\Desktop\Microsoft Excel Worksheet.xlsm")
with objWorkbook
 .Run "df"
 .Quit
End with
 
Изучаем методы Application.Run и Application.Quit. Кроме того, хорошая примета - закрывать открытые книги.
Владимир
 
А просто написать в чем проблема не вариант?;)
 
Мне кажется, я написал довольно точно.
Код
Option Explicit
Dim objXL, objWorkbook
Set objXL = CreateObject("Excel.Application")
objXL.Visible = TRUE
Set objWorkbook = objXL.Workbooks.Open("C:\temp\example.xlsm")
objXL.Run "df"
objWorkbook.Close True
objXL.Quit
Владимир
 
sokol92, спасибо!
Работает без ошибки теперь, но. к сожалению, не выполняется макрос. хз почему. но В ЛЮБОМ СЛУЧАЕ СПАСИБО!
 
Проверяем:
  • записываем прилагаемый файл в каталог C:\temp. Открываем и проверяем, что ячейка A2 пуста. Изучаем текст макроса df. Закрываем книгу.
  • выполняем скрипт из #4
  • открываем файл C:\temp\example.xlsm. Значение ячейки A2 должно быть 5
Изменено: sokol92 - 12.08.2018 13:59:46
Владимир
 
Цитата
MR.TONY написал:
к сожалению, не выполняется макрос
1. проверяем где этот макрос записан
2. Убеждаемся, что он делает нужные действия на нужном листе нужной книги
3. Убеждаемся, что книга, в которой были сделаны изменения была сохранена после внесения в неё изменений.

Других причин НЕТ.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх