BorlandTalk.com

Felix A. Hernandez · Guest

I am getting the following error:
[Error] ExcelCode.pas(51): '[' expected but ':=' found

On this code:
Range['A1','J1'].Value := VarArrayOf(['Order No',
'Cust No','Sale Date','Emp No',
'Ship Via', 'Terms','Items Total',
'Tax Rate','Freight','Amount Paid']);

Here is the complete code for the ButtonClick1 Method:

procedure TForm1.Button1Click(Sender: TObject);
var
LineNumber, LCID : Integer;
LineString : string;
begin
with SaveDialog1 do
begin
FileName :='';
Filter:= 'Excel files|*.XLS;All Files|*.*';
DefaultExt := 'XLS';
Title := 'Exporting to Excel';
if execute then
begin
LCID := GetUserDefaultLCID;
//ExcelApplication1.Range['A1','J1'].Text
with ExcelApplication1 do
begin
connect;
try
visible[LCID] := true;
Workbooks.Add(EmptyParam,LCID);

Range['A1','J1'].Value := VarArrayOf(['Order No',
'Cust No','Sale Date','Emp No',
'Ship Via', 'Terms','Items Total',
'Tax Rate','Freight','Amount Paid']);

//Format Heading
with Range['A1','J1'] do
begin
HorizontalAlignment := xlcenter;
VerticalAlignment := xlBottom;
Wraptext := false;
Orientation := 0;
ShrinkTofit := false;
MergeCells := false;
Font.Bold := true;
end; // Range

//Save Workbook
ActiveWorkbook.SaveAs(FileName, xlNormal, EmptyParam,
EmptyParam, false, false,
xlNochange, xlUserResolution, False, EmptyParam,

EmptyParam, EmptyParam,
LCID);

quit;
finally
disconnect;
end; //try
end; // ExcelApplication1
end; // Execute
end; // SaveDialog1
end; // Button1Click

Deborah Pate (TeamB) · Guest

<<Felix A. Hernandez:
[Error] ExcelCode.pas(51): '[' expected but ':=' found

Felix A. Hernandez · Guest

Deborah Pate (TeamB) wrote:

Deborah Pate (TeamB) · Guest

<<Felix A. Hernandez:
Compiles ok, but I get 'OLE error 800A03EC'

Felix A. Hernandez · Guest

Deborah Pate (TeamB) wrote:

Deborah Pate (TeamB) · Guest

<<Felix A. Hernandez:
I tried looking in my office directory for VBAXL10.chm and
no luck.