怎么通过excelapplication使用excel

Question

ExcelApplication1.Workbooks.Open(opendialog1.FileName,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
为什么运行提示[Error] udishX.pas(60): Not enough actual parameters

Answer 1

搜索excel，找到168篇，一篇都不是

Answer 2

给你个例子
procedure TForm1.Button1Click(Sender: TObject);
var
Temp_Worksheet: _WorkSheet;
i,j : integer;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := false;
ExcelApplication1.Caption := 'god';
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
Temp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
ExcelWorksheet1.Name := 'abcd;ExcelApplication1.Cells.Item[1,1].value := 'a;
ExcelApplication1.Cells.Item[2,1].value := 'b';
ExcelApplication1.Cells.Item[2,2].value := 'c';
ExcelApplication1.Cells.Item[2,3].value := 'c';
ExcelApplication1.Cells.Item[2,4].value := 'e';
ExcelApplication1.Columns.ColumnWidth := 12;
ADOQuery1.Open;
ADOQuery1.First;
ProgressBar1.Max := ADOQuery1.RecordCount;
for i := 3 to 10 do
begin
    ExcelApplication1.Cells.Item[ i,1].value := ADOQuery1.FieldByName('sh').AsString;
    ExcelApplication1.Cells.Item[i,2].value := ADOQuery1.FieldByName('qy').AsString;
    ExcelApplication1.Cells.Item[i,3].value := ADOQuery1.FieldByName('sl').AsString;
    ExcelApplication1.Cells.Item[i,4].value := ADOQuery1.FieldByName('rq').AsString;
    ADOQuery1.Next;
    ProgressBar1.Position := i -2;
end;
ADOQuery1.Close;
ExcelWorksheet1.SaveAs('d:\aa.xls');        ExcelWorkbook1.Close;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;end;

Answer 3

我是打开已有的excel文件，不是新建文件阿

Answer 4

ExcelApplication1.Workbooks.Open(opendialog1.FileName,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
就可以了