Amibroker: чтение данных из Excel

[ahg]

Всем добрый день,
пытаюсь в Ami прочитать число открытых позиций на данный момент:

TickerAmibroker = Name();
EnableScript("vbscript");
<%
Set Excel = CreateObject("Excel.Application")
Excel.WorkBooks.Open("r:\Портфель.xls")
Set Sheet = Excel.WorkBooks(1).WorkSheets(1)
for i = 1 to 10
TickerExcel = Sheet.Cells(i,4).Value
if TickerExcel = TickerAmibroker then
CloseLots = Sheet.Cells(i,9).Value
end if
Next
%>

...и ничего не получается. Значение переменной closeLots всегда равно нулю. Что я не так делаю? Как в Ami прочитать данные из Excel?
Или может есть какой другой путь узнать в Ami сколько позиций открыто в Quik?

 

[000]

Я экспортил данные об открытых позициях по ODBC в БД и оттуда читал с помощью ODBC плагина. Прекрасно работало.

 

[ahg]

Я экспортил данные об открытых позициях по ODBC в БД и оттуда читал с помощью ODBC плагина. Прекрасно работало.

А можно примерчик кода?

 

[000]

Ссылка на плагин http://www.amibroker.com/odbc.html

Пример кода

odbcOpenDatabase("ODBC;DSN=000;Driver=Firebird/InterBase(r) driver;Dbname=C:/TEST1.FDB;CHARSET=ASCII;PWD=masterkey;UID=SYSDBA;Client=C:/Program Files/Firebird/Firebird_2_1/bin/fbclient.dll;"); 
real_market_position = Nz(odbcGetValue("TABLE01", "", "FIELD02"));

 

[ahg]

Ссылка на плагин http://www.amibroker.com/odbc.html

Пример кода

odbcOpenDatabase("ODBC;DSN=000;Driver=Firebird/InterBase(r) driver;Dbname=C:/TEST1.FDB;CHARSET=ASCII;PWD=masterkey;UID=SYSDBA;Client=C:/Program Files/Firebird/Firebird_2_1/bin/fbclient.dll;"); 
real_market_position = Nz(odbcGetValue("TABLE01", "", "FIELD02"));

Спасибо. Буду пробовать.

 

[ahg]

В общем день потратил, но решение нашел:
внутри скрипта для передачи переменной наружу надо использовать конструкцию
AFL.Var("ИмяПеременной") = Переменная.