F1book中的CopyDataToArray怎么实现(200分)

帮助中的VB例子是
Private Sub cmdCopy_Click()
Dim copyArray(1 To 30, 1 To 40) As Variant
F1Book1.CopyDataToArray 1, 1, 1, 30, 40, True, copyArray
F1Book2.CopyDataFromArray 1, 10, 5, 40, 45, False, copyArray
End Sub

DELPHI中的申明是
procedure TF1Book6.CopyDataToArray(nSheet: Integer; nRow1: Integer; nCol1: Integer; nRow2: Integer;
nCol2: Integer; bValuesOnly: WordBool; Array_: OleVariant);
begin
DefaultInterface.CopyDataToArray(nSheet, nRow1, nCol1, nRow2, nCol2, bValuesOnly, Array_);
end;

请教高手
怎样处理OleVariant???? 请给一个例子

帮助中的VB例子是
Private Sub cmdCopy_Click()
Dim copyArray(1 To 30, 1 To 40) As Variant
F1Book1.CopyDataToArray 1, 1, 1, 30, 40, True, copyArray
F1Book2.CopyDataFromArray 1, 10, 5, 40, 45, False, copyArray
End Sub
delphi如下：
procedure TForm1.cmdCopy_Click;
var
copyArray:OleVariant;//定义变量数组
begin
copyArray:=VarArrayCreate([1,30,1,40],VT_VARIANT);//创建变量数组
copyArray[1,1]:=0;
.....
copyArray[30,40]:=1;
F1Book1.CopyDataToArray( 1, 1, 1, 30, 40, True, copyArray);
F1Book2.CopyDataFromArray(1, 10, 5, 40, 45, False, copyArray);
end;

还是不行
procedure TForm1.cmdCopy_Click;
var
copyArray:OleVariant;//定义变量数组
begin
copyArray:=VarArrayCreate([1,30,1,40],VT_VARIANT);//创建变量数组
copyArray[1,1]:=0; //不能赋值。
.....
copyArray[30,40]:=1; // := Unassigned;
F1Book1.CopyDataToArray( 1, 1, 1, 30, 40, True, copyArray);//〈== 错误的类型或数组维数
F1Book2.CopyDataFromArray(1, 10, 5, 40, 45, False, copyArray);
end;

把vt_variant改为varVariant
F1Book2.CopyDataFromArray(1, 10, 5, 40, 45, False, copyArray);如果不行
用F1Book2.CopyDataFromArray(1, 10, 5, 40, 45, False,vararrayref( copyArray));试试。
如果还不行，你把例子邮给我，我给你调试。
mzrong@163.com

返回： 错误的类型或数组维数，
看起来象前者。可能F1的单元格有特别的类型定义。

procedure TForm1.Button1Click(Sender: TObject);
var
copyArray:OleVariant;//定义变量数组
begin
copyArray:=VarArrayCreate([1,10,1,10],VTVARIANT);//创建变量数组

F1Book61.CopyDataToArray( 1, 1, 1, 10, 10, True, vararrayref(copyArray));//〈== 错误的类型或数组维数
F1Book62.CopyDataFromArray(1, 1, 1, 10, 10, False, copyArray);
end;

我也没有用过F1book,不过我知道在源码空间上有一个配件仓库管理系统源代码，上面的报表系统是用它做的，主程序名叫spi.你下载下来分析就行 了。

看过, 好象用处不多

F1Book62.CopyDataFromArray(1, 1, 1, 10, 10, False, copyArray_);