程序使用excelapplication,excelworkbook,excelworksheet组件后，如果你想打开一个EXCEL文件只能看到标题？

daring1981 2008-04-02 09:30:00

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExcelXP, OleServer, DB, ADODB;

type
TForm1 = class(TForm)
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;

begin
excelapplication1.Connect;
excelapplication1.Visible[0]:=true;
excelapplication1.Caption:='退补管理程序';
excelworkbook1.ConnectTo(excelapplication1.Workbooks.Add(null,0));
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);

excelworksheet1.Cells.Item[1,1]:='one';
excelworksheet1.Cells.Item[1,2]:='tow';
excelworksheet1.Cells.Item[1,3]:='three';
excelworksheet1.Cells.Item[2,1]:='31';
excelworksheet1.Cells.Item[2,2]:='21';
excelworksheet1.Cells.Item[2,3]:='11';

excelworksheet1.SaveAs('c:\9.xls');

excelapplication1.Quit;
excelworkbook1.Disconnect;
excelworksheet1.Disconnect;
excelapplication1.Disconnect;

end;

end.

程序运行后，保存文件都可以，就是如果你想打开另外EXCEL文件只能开到EXCEL标题，其他看不见，请指教，谢谢！

...全文