Запуск макросов Excel

Василий · 13 Июл 2019

Здравствуйте. нужна ваша помощь. В AutoIt вообще ничего не понимаю .
узнал об AutoIt только из за того, что понадобилось следующее:
- Запущенно сразу 10 копий Excel
- Во всех 10 Excel открыт файл с одинаковым именем Шаблон.
- В папках 1,2,3,4,5,6,7,8,9,10. в каждой папке лежит файл Шаблон.xls.
- В файле Шаблон.xls есть макрос Test
- Из каждой папки я запускаю 1 файл Шаблон.xls на каждую новую копию Excel.
нужно:
- Вот запущенно сразу 10 копий Excel с файлом Шаблон.xls
- Нужно одновременно запустить макрос Test во всех открытых копиях Excel с файлом Шаблон.xls.
Обязательно, чтобы задержки не было, и запуск макроса произошёл мгновенно одновременно во всех копиях Excel

Василий · 15 Июл 2019

Не ужели никто помочь не может?

joiner · 15 Июл 2019

Василий
мгновенно не получится. только по очереди.
а ответов нет потому, как вариант, лето, отпуск и прочее. лично я не знаю как это сделать. точнее, мог бы узнать, но нет желания. потому что лето и прочее :smile:

если очень нужно, то предложи вознаграждение, может кто и откликнется.

Василий · 17 Июл 2019

как запустить хотя бы 1 макрос Excel или последовательно 2 и более?

ra4o · 18 Июл 2019

Пробуйте так:

Код:

#include <Excel.au3>
Local $oExcel = _Excel_Open()
$oWorkbook=_Excel_BookOpen($oExcel, @ScriptDir & "\Test.xls",False,True)
$oWorkbook.Application.Run("Макрос1")

Василий · 18 Июл 2019

А куда этот код вставлять?

я сделал так:
- открыл редактор SciTE.exe
- вставил туда ваш код, немного изменив под себя.
и получилось так, больше ничего кроме этого кода там нет это всё что есть:

#include <Excel.au3>
Local $oExcel = _Excel_Open()
$oWorkbook=_Excel_BookOpen($oExcell, @ScriptDir & "\Шаблон.xlsb",False,True)
$oWorkbook.Application.Run("Test0")

-Потом сохраняю в файл 1.au3.
- Кладу этот файл рядом с файлом Шаблон.xlsb
- Запускаю файл Шаблон.xlsb
- Запускаю двойным нажатием лкм файлик старт.au3
И выдаёт ошибку.
Прикрепил скриншот ошибки
Прикрепил скриншот внутренности файла 1.au(Верно ли там всё или ещё какой то код нужно там добавить?)

ra4o · 18 Июл 2019

Я ошибся в названии переменной - лишнюю букву написал, исправил в предыдущем сообщении, скопируйте ещё раз.
Запустить можно и прямо из SciTE клавишей "F5"
С Вашими данными:

Код:

#include <Excel.au3>
Local $oExcel = _Excel_Open()
$oWorkbook=_Excel_BookOpen($oExcel, @ScriptDir & "\Шаблон.xlsb",False,True)
$oWorkbook.Application.Run("Test0")

Василий · 18 Июл 2019

Макрос работал. но не так как мне нужно. я описывал ситуацию, где у меня уже запущен файл Шаблон.xlsb.
А ваш макрос заново его запускает. Мне нужно что бы просто макрос запускался, без запуска макроса. В идеале бы проверку в вашем коде сделать, например: если файл уже открыт, то открывать не надо, или просто вообще не открывать файл, а запускать сразу макрос.

ra4o · 18 Июл 2019

Если книга уже открыта, то попробуйте так:

Код:

#include <Excel.au3>
Local $oExcel = _Excel_Open()
$oWorkbook=_Excel_BookAttach(@ScriptDir & "\Шаблон.xlsb")
$oWorkbook.Application.Run("Test0")

Василий · 18 Июл 2019

Вроде сработал.
Скажите какой код, чтобы запустить не из этой же папки а по пути?
и второе, как запустить одновременно или хотя бы последовательно, но быстро(что бы не дожидаться выполнения макроса), несколько макросов?

ra4o · 18 Июл 2019

чтобы запустить не из этой же папки а по пути?

Код:

;Подключаетесь к уже запущенному экземпляру Excel по указанному пути, в данном случае "@ScriptDir & "\Шаблон.xlsb"" - укажите любой другой путь при необходимости
$oWorkbook=_Excel_BookAttach(@ScriptDir & "\Шаблон.xlsb")
;Или открываете любую книгу Excel по любому пути :
$oWorkbook=_Excel_BookOpen($oExcel, @ScriptDir & "\Шаблон.xlsb",False,True)

Одновременно не получится , а последовательно - просто запускайте нужные макросы, в чём проблема ("$oWorkbook.Application.Run("Test0")") ?

Василий · 18 Июл 2019

я не это имел ввиду. запускать не разные макросы. это конечно в одной книги не возможно.
Я имел ввиду. чтобы запускать один и тот же макрос, но в разных открытых файлах одновременно, или хотя бы последовательно, что бы не ждать выполнение одной процедуры.

Я вот так сделал:
#include <Excel.au3>
Local $oExcel = _Excel_Open()
$oWorkbook=_Excel_BookAttach("g:\Тест\1\Шаблон.xlsb")
$oWorkbook.Application.Run("Test0")
$oWorkbook=_Excel_BookAttach("g:\Тест\2\Шаблон.xlsb")
$oWorkbook.Application.Run("Test0")
НО! такой вариант запускает последовательно и второй запуск макроса Test0 по пути: "g:\Тест\2\Шаблон.xlsb"
Запускается только если выполнится предыдущий. а мне это не подходит.

ra4o · 18 Июл 2019

Как вариант - для каждой книги написать свой скрипт запуска макроса и отдельным скриптом запускать уже эти скрипты.
В ручную есть возиожность запустить эти макросы не дожидаясь выполнения предыдущего ?

Василий · 18 Июл 2019

пробовал в ручную для эксперемента. не получается.
первый процесс запускается, макрос выполняется, в трее висит иконка AutoIt. Запускаю второй, в общем уходит в ожидание пока отработается предыдущий, добавляется вторая иконка Autoit в трей, а толку никакого, работает только 1 макрос всё равно, второй ждёт первый, а чаще после окончание первого и второй не запускается. Сырой этот AutoIt в общем, очень слаб.

ra4o · 19 Июл 2019

Я имел в виду запуск одновременно нескольких макросов средствами самого Excel , позволяет ?

Василий · 19 Июл 2019

нет конечно

ra4o · 19 Июл 2019

Тогда что Вы хотите от Autoit , если сам Excel это не позволяет ?

Василий · 19 Июл 2019

такое ощущение, что я разговариваю с.... :stars:
Попробую ещё раз объяснить:
-В одном Excel запустить несколько макросов невозможно никаких, не разных не одинаковых.
- Что бы запустить несколько макросов, нужно открывать несколько копий Excel как разный работающий процесс. И в каждом отдельном Excel можно также запускать по одному макросу. Что я и делаю вручную.
- Но в ручную запускать макросы в 20-30 копиях Excel дело муторное и не удобное, поэтому я хотел это дело автоматизировать, чтобы запускать макросы не вручную. Следовательно и оказался тут на форуме с этой замечательной программой.
- Ещё раз ответ на ваш вопрос: В одном Excel запустить несколько макросов невозможно никаких, не разных не одинаковых. В разных копиях можно сколько угодно, на сколько хватит ресурсов ПК. Хоть 100Excel запустите и следовательно 100 макросов.
- Перечитайте ещё раз мой первый пост, там я всё подробно вроде описал.

ra4o · 19 Июл 2019

И в каждом отдельном Excel можно также запускать по одному макросу. Что я и делаю вручную.

Возможно я не точно задавал вопрос, теперь всё понятно, именно это я и хотел узнать.
Пробовал такой вариант - в каждую папку с документом Excel поместил скомпилированный скрипт с именем "1.ехе" :

Код:

#include <Excel.au3>
$oWorkbook=_Excel_BookAttach(@ScriptDir & "\Шаблон.xlsb")
$oWorkbook.Application.Run("Test0")

отдельно создал скрипт для запуска всех предыдущих такого вида:

Код:

ShellExecute(@ScriptDir&'\1\1.exe')
ShellExecute(@ScriptDir&'\2\1.exe')
ShellExecute(@ScriptDir&'\3\1.exe')

При этом второй скрипт отрабатывает сразу, то есть все exe-шники запускаются сразу , но уже макросы отрабатывают последовательно :stars:

wedmed · 17 Апр 2020

Василий сказал(а):
- Но в ручную запускать макросы в 20-30 копиях Excel дело муторное и не удобное, поэтому я хотел это дело автоматизировать, чтобы запускать макросы не вручную.

Я бы прописал запуск макроса в автостарт. В самом макросе можно предусмотреть условия его работы или выхода сразу после запуска.

Автор темы	Похожие темы	Форум	Ответы	Дата
W	Предварительный запуска файла	Общие вопросы по AutoIt	17	8 Окт 2024
V	На что то нажал и теперь не запускаются скрипты	Общие вопросы по AutoIt	1	29 Июн 2024
A	Время, дата Запуск скрипта ежедневно в одно и тоже время	Общие вопросы по AutoIt	2	16 Июн 2024
M	Запуск программы при движении мыши или нажатии клавиши на клавиатуре.	Стол заказов	4	8 Янв 2024
	Перенесено: Запуск макросов Excel	Общие вопросы по AutoIt	0	14 Июл 2019

Поиск

Поиск

Запуск макросов Excel

Василий

Василий

joiner

Модератор

Василий

ra4o

AutoIT Гуру

Василий

Вложения

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

Василий

ra4o

AutoIT Гуру

wedmed

Новичок