Серый форум — AHK: Открыть файл Excel и получить значение ячейки в переменную

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-26T18:38:00Z

А как в таком случае также закрыть созданный и сохраненный файл без подтверждения?

Text =
(
111
222
333
)

Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Add
Xl.Range("A1").Value := "Column"
Xl.Visible := True

;Запись данных в колонку
Loop, parse, Text, `n, `r
    if A_LoopField
        Xl.Range("A" . A_Index+1).Value := A_LoopField

;Сохранить в файл
Xl.ActiveWorkbook.SaveCopyAs( A_Desktop "\Excel.xls")
clipboard =
Xl.Quit()
ExitApp

Предыдущий вариант:

clipboard=
Xl.Quit()

не срабатывает, созданный файл сохраняется, но при закрытии программы Excel спрашивает подтверждение о сохранении файла..

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T13:02:21Z

Чтобы закрыть:

clipboard=
Xl.Quit()

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T13:00:51Z

По скорости значительно быстрей!

А как закрыть если открывали уже созданный, только без сохранения изменений и что бы никакое окошко с просьбой подтвердить действие не выскакивало?

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T12:52:53Z

Alectric пишет:

Или так через буфер:

Xl.Range("A:A").Copy ;copy cell to clipboard
sleep,100
outvar:=clipboard
msgbox,% outvar

Через буфер обмена подойдет!
Сейчас протестирую на скорость

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T12:52:02Z

Вся колонка через буфер:

Xl.Range("A:A").Copy ;copy cell to clipboard
sleep,100
outvar:=clipboard
msgbox,% outvar

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T12:49:15Z

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

И еще как закрывать после чтения открытый файл в Excel через Com?

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T12:40:30Z

Через цикл можно:

loop,10
{
  var:=Xl.Range("A" . A_Index).Value
  outvar.= var "`n"
}

msgbox,% outvar

Re: AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T10:41:52Z

Разобрался как получить значение в файле *.xls

Path = %A_Desktop%\Excel.xls
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path) ;открывает выбраный файл
Xl.Visible := True ;Делает видимым

;Получаем значение первой ячейки в колонке "D"
MsgBox % Xl.Range("D" . 1).Value

Еще такой вопрос, возможно ли аналогичным способом получить значение целой колонки?

AHK: Открыть файл Excel и получить значение ячейки в переменную

2015-01-24T10:24:13Z

Как можно получить значение ячейки например D1 в файле Excel.xls ?
И в конце закрыть Excel с этим файлом

Path = %A_Desktop%\Excel.xls
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path) ;открывает выбраный файл
Xl.Visible := True ;Делает видимым
;???