AHK: запуск файла excel через run и чтение из него данных

Через com, конечно.

1::
xl := ComObjActive("Excel.Application")

a := []
loop, 57
{
	a.push(xl.Range("A" A_Index).value)
}

msgbox % a[1]
return

А так можно открыть/закрывать Excel или файл.

filepath := ("C:\Книга1.xlsx")

2::
objExcel := ComObjCreate("Excel.Application")
objExcel.Workbooks.Open(filepath)
return

3::
objExcel := ComObjGet(filepath)
objExcel.close
return

Правда, в диспетчере может оставаться висеть Excel.

https://autohotkey.com/boards/viewtopic … +ComObjGet

svoboden
Спасибо вам за ответ!
К сожалению, ничего не выходит. Если пытаюсь открыть файл, с помощью команды run, то прога ругается на:

Может дело в том, я не могу их связать, не знаю.

Открытие файла через path мне не подходит, по причине того что файл Excel, который я пытаюсь открыть запустить, не простой Он содержит в себе код, который при открытии данного файла, посылает запрос данных на сервер. Считывает их и перезаписывает ячейки со старыми данными на полученные новые. Если я запускаю файл через path, то он просто открывается, а запроса к серверу не происходит.
А вот если использовать команду run, то файл запускается и запрос с обновлением выполняются. А дальше все...ничего не пойму.

Скорее всего, т.к, что там непонятного? Так, например, считывает 20 ячеек колонки "А", можно считать больше.

1::
xl := ComObjActive("Excel.Application")

a := []
loop, 20
{
	a.push(xl.Range("A" A_Index).value) ; тут меняется колонка по умолчанию стоит "А"
    d .= a[A_Index]"`n"
}

msgbox % d
d := ""
return

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

В первом вашем случае такого метода нету:

objExcel := ComObjCreate("Excel.Application")
objExcel.close

А для чего вам нужна эта переменная MyIndex := A_Index ?
И зачем вы используете массивы, если всё-равно потом в переменную d записываете?

Я имею в виду не то, что у вас в коде нету, а то, что такого метода в принципе нету у Application object.
https://msdn.microsoft.com/en-us/vba/ex … ject-excel
А при чем тут stealzy?
Просто лишние действия в коде и прочий мусор (типа неиспользуемых переменных) только усложняют его понимание.

Ну а как там без них?
У вас есть предложения?

Приведите пример, как без них всё будет работать.
У вас все будет работать так:

1::
xl := ComObjActive("Excel.Application")
d := ""
loop, 20
   d .= xl.Range("A" A_Index).value "`n"
msgbox % d

Я имел в виду, что для работоспособности вашего кода переменная MyIndex не нужна, так как нигде не используется.
И массивы тоже излишни, так как вы все складываете в одну переменную.
В моем же коде все переменные используются и без них мой код работать не будет.
Разницу улавливаете?
Если у вас есть предложения по его модернизации, то я только за.

Я вас не понимаю.
Если вы имеете в виду приравнивание переменных к нулю, то это я сделал дабы избежать таких моментов:

str1 = 68376123454132178
str2 = 12

Prev := "", n := MaxN := Sum := MaxSum := 0
Loop, Parse, str1
{
   if (A_LoopField -1 = Prev)
      Sum += A_LoopField, n++
   else
      Sum := A_LoopField, n := 1
   if (n > maxN)
      maxN := n, MaxSum := Sum
   Prev := A_LoopField
}
msgbox % MaxSum

;Prev := "", n := MaxN := Sum := MaxSum := 0
Loop, Parse, str2
{
   if (A_LoopField -1 = Prev)
      Sum += A_LoopField, n++
   else
      Sum := A_LoopField, n := 1
   if (n > maxN)
      maxN := n, MaxSum := Sum
   Prev := A_LoopField
}
msgbox % MaxSum

А так?

filepath := ("C:\Книга1.xlsx")
objExcel := ComObjCreate("Excel.Application")
WorkBook := objExcel.Workbooks.Open(filepath)
Workbook.RefreshAll

st-shony, файл дайте. У Excel сотни методов, но какой из них отвечает за выполнение макроса при открытии...

stealzy
Запрос делается не через макрос. А через специальную штуку, встроенную в Excel (2007) - "Подключения". В них настроен ряд обычных select'ов к SQL-серверу. В свойствах подключения, во кладке - "Использование" стоит галочка напротив: "Обновление при открытии файла". Вот так это работает.

svoboden
Рано обрадовалась....
Запустила один раз - все отработалось как надо, запустила второй и прога выдала ошибку:
Error: 0x80040101E3 - Операция недоступна
--->        objExcel := ComObjActive("Excel.Application")

Хотя я ничего не меняла:

 
Run, G:\....xls
sleep 10000
objExcel := ComObjActive("Excel.Application")
d := ""
loop
{
     d .= objExcel.Range("B" . 6).value
}
msgbox % d

st-shony, при втором запуске не нужно запускать: Run, G:\....xls
sleep 10000. Скрипт может еще выдать ошибку, если ячейка редактируется, т.е., когда установлен в ней курсор.

svoboden
Фм...не. Что-то не то.
Перед вторым запуском я все закрыла. И код, и excel и в процессах ничего не осталось.
Это был такой же тест, как и все.
А курсор там вообще не поставишь, пока данные обновляются.

А так считывает?:

FilePath := "C:\Книга.xlsx"
oWorkbook := ComObjGet(FilePath)
MsgBox % oWorkbook.Sheets(1).Range("A1").Value ; здесь колонку "А" ячейку 1 считывает

Это для проверки, Excel открывать не надо.

st-shony, ну, значит, работает. Тогда также и открытый Excel должен считать,
а можно из закрытого считывать данные.