Добрый день!Есть код для экспорта таблицы в Эксель

loExcel=CREATEOBJECT("Excel.Application")
loExcel.displayAlerts=.F.
WITH loExcel
.Visible=.t.
.WorkBooks.Add
.Sheets(1).Select
USE data1!products
Select TRIM(product_name)+''+TRIM(price);
FROM data1!products;
ORDER BY product_name;
INTO ARRAY a
rowsCount=ALEN(a,1)
colsCount=ALEN(a,2)
.Columns("A:A").ColumnWidth = 16.43
.Columns("B:B").ColumnWidth = 14.71
.Range("A1").Select
.ActiveCell.FormulaR1C1 = "Продукт"
.Range("B1").Select
.ActiveCell.FormulaR1C1 = "Цена"

j=2
FOR j=2 TO rowsCount+1
.Range("A1").Select
.ActiveCell.FormulaR1C1 = a[j-1,1]
.Range("B1").Select
.ActiveCell.FormulaR1C1 = a[j-1,2]
ENDFOR
RELEASE a
ENDWITH
CLOSE DATA all
RELEASE to Excel
RETURN
при запуске пишет ошибку Function Argument value, type or count is invald и дебагер указывает на строчку, где SELECT TRIM...
В чем проблема?
Спасибо!