unit Unit1;interfaceuses
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标题,其他看不见,请指教,谢谢!
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标题,其他看不见,请指教,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货