利用delphi打开excel文件同时进行写入数据!(100分)

燕狂徒 · 2003-05-30

本人做了一个程序,但是从远程数据库获得数据要导入的一个格式已经固定excel表格中, 因为表格中有计算公式!这样就不用编写复杂的代码!求救如何打开excel,文件并对特定的单元格送入数据!

燕狂徒 · 2003-05-30

最好提供源代码!分数不够我再加!

zealothasu · 2003-05-30

try       try         ExcelApplication.Connect;       except                 Exit;       end;       try         ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Open           (ExtractFilePath(Application.ExeName)+'WeekReportFormat.xls', EmptyParam,              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0));         ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets[1] as _WorkSheet);       except Exit;       end;       try          for i := 1 to 10 do            for j := 1 to 10 do               ExcelWorksheet.Cells.Item[i, j] := i*j         ExcelWorksheet.Name := 'C:/1.xls';         ExcelWorksheet.SaveAs(sFileName, EmptyParam, EmptyParam, EmptyParam,           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);       exceptend;     finally       ExcelWorkbook.Close(false);       ExcelApplication.Disconnect;     end;   end 大概就是这样

zealothasu · 2003-05-30

要先放上excel控件

燕狂徒 · 2003-05-30

ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Open           (ExtractFilePath(Application.ExeName)+'WeekReportFormat.xls', EmptyParam,              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0));         ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets[1] as _WorkSheet); 能详细解释一下上面代码的意思马??谢谢!

ZhangOk · 2003-05-30

学习

Wjzhou · 2003-05-30

我已前写的,找出来给你. unit WjUtilsExcel; interface uses   DB, SysUtils; const   AllFields: string = '[ALL]';   VisibleFields: string = '[VISIBLE]'; type   TExportDataSetFlag = (ifWriteColumnTitle, ifMoveActiveCell, ifUseFieldDisplayText, ifFormatAsString);   TExportDataSetFlags = set of TExportDataSetFlag;   IExcelUtils = interface(IUnknown)     ['{9DAAE4C0-5835-4A2E-81CD-FF8998AE9A47}']     function Server: OleVariant;     function Save: boolean;     function ExportDataSet(ADataSet: TDataSet; const AFields: string = ''; ARecordCount: integer = -1;       AExportFlags: TExportDataSetFlags = []): integer;     function PromptForWorkbookFileName: string;   end;   TExcelServer = class(TInterfacedObject, IExcelUtils)   protected     FServer: OleVariant;   public     constructor Create(AIsCreateServerNow: boolean = false);     destructor Destroy; override;   protected     { IExcelUtils implementation }     function Server: OleVariant;     function Save: boolean;     function ExportDataSet(ADataSet: TDataSet; const AFields: string; ARecordCount: integer;       AExportFlags: TExportDataSetFlags): integer;     function PromptForWorkbookFileName: string;   end; implementation uses Variants, ComObj, Dialogs, Forms, Controls, Classes; { TExcelServer } constructor TExcelServer.Create(AIsCreateServerNow: boolean = false); begin   if AIsCreateServerNow then Server; end; destructor TExcelServer.Destroy; begin   if VarType(FServer) = varDispatch then   begin     FServer.Quit;     FServer := Null;   end;   inherited; end; function TExcelServer.ExportDataSet(ADataSet: TDataSet; const AFields: string; ARecordCount: integer;   AExportFlags: TExportDataSetFlags): integer; var   i, RowOffset: integer;   PrevCursor: TCursor;   Fields: TList; begin   Result := -1;   Fields := TList.Create;   try     if UpperCase(AFields) = ALLFields then       for i := 0 to ADataSet.FieldCount - 1 do Fields.Add(ADataSet.Fields)     else if (AFields = '') or (UpperCase(AFields) = VisibleFields) then     begin       for i := 0 to ADataSet.FieldCount - 1 do         if ADataSet.Fields.Visible then Fields.Add(ADataSet.Fields)     end     else       ADataSet.GetFieldList(Fields, AFields);     if Fields.Count > 0 then     begin       PrevCursor := Screen.Cursor;       try         Result := 0;         RowOffset := 0;         if ifWriteColumnTitle in AExportFlags then         begin           for i := 0 to Fields.Count - 1 do             Server.ActiveCell.Offset[0, i].Value := TField(Fields.Items).DisplayLabel;           RowOffset := 1;         end;         while ((ARecordCount < 0) or (Result < ARecordCount)) and (not ADataSet.Eof) do         begin           for i := 0 to Fields.Count - 1 do           begin             if ifFormatAsString in AExportFlags then               Server.ActiveCell.Offset[Result + RowOffset, i].NumberFormatLocal := '@';             if ifUseFieldDisplayText in AExportFlags then               Server.ActiveCell.Offset[Result + RowOffset, i].Value := TField(Fields.Items).DisplayText             else               Server.ActiveCell.Offset[Result + RowOffset, i].Value := TField(Fields.Items).Value;           end;           Inc(Result);           if ARecordCount <> 1 then ADataSet.Next; //如只导入一条记录，则不移动记录指针         end;         if ifMoveActiveCell in AExportFlags then           Server.ActiveCell.Offset[Result + RowOffset].Activate;       finally         Screen.Cursor := PrevCursor;       end;     end;   finally     Fields.Free;   end; end; function TExcelServer.PromptForWorkbookFileName: string; begin   Result := '';   PromptForFileName(Result, 'Microsoft Excel 文件(*.xls)|*.xls', 'xls', '另存为', '', true); end; function TExcelServer.Save: boolean; var   Workbook: OleVariant;   FileName: string; begin   Result := false;   Workbook := Server.ActiveWorkbook;   if TVarData(Workbook).VDispatch = nil then     Raise Exception.Create('None of workbooks is actived.');   if Workbook.Path <> '' then   begin     Workbook.Save;     Result := true;   end   else   begin     FileName := PromptForWorkbookFileName;     if FileName <> '' then     begin       Workbook.SaveAs(FileName);       Result := true;     end;   end; end; function TExcelServer.Server: OleVariant; var   PrevCursor: TCursor; begin   if VarType(FServer) = varEmpty then   begin     PrevCursor := Screen.Cursor;     try       Screen.Cursor := crHourGlass;       FServer := CreateOleObject('Excel.Application');       FServer.DisplayAlerts := false;     finally       Screen.Cursor := PrevCursor;     end;   end;   Result := FServer; end; end.

zealothasu · 2003-05-31

ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Open          (ExtractFilePath(Application.ExeName)+'WeekReportFormat.xls', EmptyParam,             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0)); 打開在exe文件目錄下的'WeekReportFormat.xls文件 最好自己找VBAXL9.CHM看看,在offi的目錄下面 這個是關與excel的操作

luky_99 · 2003-05-31

[h2][red]下面是轉載的[/red][/h2] 可以學習學習 全面控制 Excel 首先创建 Excel 对象，使用ComObj: var ExcelID: Variant;  ExcelID := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ExcelID.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿：   ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿：   ExcelID.WorkBooks.Open( 'C:/Excel/Demo.xls' ); 5) 设置第2个工作表为活动工作表：   ExcelID.WorkSheets[2].Activate;    或 ExcelID.WorkSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值：  ExcelID.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例：  ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：   ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符：   ExcelID.WorkSheets[1].Rows[8].PageBreak := 1; 10) 在第8列之前删除分页符：   ExcelID.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度：  ExcelID.ActiveSheet.Range[ 'B3

4' ].Borders[2].Weight := 3;    1-左    2-右   3-顶    4-底   5-斜( / )     6-斜( / ) 12) 清除第一行第四列单元格公式：  ExcelID.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性： ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书'; ExcelID.ActiveSheet.Rows[1].Font.Color  := clBlue; ExcelID.ActiveSheet.Rows[1].Font.Bold   := True; ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True; 14) 进行页面设置：   a.页眉：     ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';   b.页脚：     ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';   c.页眉到顶端边距2cm：     ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;   d.页脚到底端边距3cm：     ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;   e.顶边距2cm：     ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;   f.底边距2cm：     ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;   g.左边距2cm：     ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;   h.右边距2cm：     ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;   i.页面水平居中：     ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;   j.页面垂直居中：     ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;   k.打印单元格网线：     ExcelID.ActiveSheet.PageSetup.PrintGridLines := True; 15) 拷贝操作：   a.拷贝整个工作表：     ExcelID.ActiveSheet.Used.Range.Copy;   b.拷贝指定区域：     ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;   c.从A1位置开始粘贴：     ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;   d.从文件尾部开始粘贴：     ExcelID.ActiveSheet.Range.PasteSpecial;  16) 插入一行或一列：    a. ExcelID.ActiveSheet.Rows[2].Insert;    b. ExcelID.ActiveSheet.Columns[1].Insert;  17) 删除一行或一列：   a. ExcelID.ActiveSheet.Rows[2].Delete;   b. ExcelID.ActiveSheet.Columns[1].Delete;  18) 打印预览工作表：   ExcelID.ActiveSheet.PrintPreview;  19) 打印输出工作表：   ExcelID.ActiveSheet.PrintOut;  20) 工作表保存：  if not ExcelID.ActiveWorkBook.Saved then    ExcelID.ActiveSheet.PrintPreview;  21) 工作表另存为：   ExcelID.SaveAs( 'C:/Excel/Demo1.xls' );  22) 放弃存盘：  ExcelID.ActiveWorkBook.Saved := True;  23) 关闭工作簿：  ExcelID.WorkBooks.Close;  24) 退出 Excel： ExcelID.Quit; 如何在Delphi中操作Excel 在数据库应用软件的开发过程中，经常需要把数据转换成Excel文件,让用户作进一步的数据处理。而Delphi是开发数据库应用系统的常用工具，那么，如何在Delphi中操作Excel呢? 我们知道,在Microsoft Office软件中有一种内嵌的编程语言VBA,它是一种宏语言，利用它,你可以编写出功能强大的代码,如打开文件、修改数据、保存数据和设置字体等。另一方 面,Microsoft Office软件中的宏能以VBA代码的形式记录下你的操作过程。因此借助宏操作,可以很轻松地实现某一功能,并把这些代码稍作修改嵌入到你的软件中。但是VBA也存在 一个缺点,它必须有Microsoft Office作平台,在哪里编写,必须在哪里执行。例如在Excel下编写的一段VBA代码,则它只有在Excel下才能运行。因此,笔者的方法就是把VBA代码嵌入 到Delphi中,从而实现用Delphi操作Excel。 　　下面,我们以Delphi程序为例,说明这种调用方法： 　　Unit excel; 　　interface 　　uses 　　Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj; 　　//ComObj是操作OLE对象的函数集 　　type TForm1 =class(TForm) 　　Button1: TButton; 　　procedure Button1Click(Sender: TObject); 　　private 　　{ Private declarations } 　　public 　　{ Public declarations } 　　end; 　　var 　　Form1: TForm1; 　　implementation 　　{$R *.DFM} 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　eclApp,WorkBook:Variant; 　　//声明为OLE Automation 对象 　　xlsFileName:string;begin 　　xlsFileName:='ex.xls'; 　　try 　　//创建OLE对象Excel Application与 WorkBook 　　eclApp:=CreateOleObject('Excel.Application'); 　　WorkBook:=CreateOleobject('Excel.Sheet'); 　　except 　　ShowMessage('您的机器里未安装Microsoft Excel。'); 　　Exit; 　　end; 　　try 　　ShowMessage('下面演示:新建一个XLS文件,并写入数据,最后关闭它。'); 　　workBook:=eclApp.workBooks.Add; 　　eclApp.Cells(1 , 1):='字符型'; 　　eclApp.Cells(2 , 1):='Excel文件'; 　　eclApp.Cells(1 , 2):='Money型'; 　　eclApp.Cells(2 , 2):=10.01; 　　eclApp.Cells(1 , 3):='日期型';eclApp.Cells(2 , 3):=Date; 　　WorkBook.saveas(xlsFileName); 　　WorkBook.close; 　　ShowMessage('下面演示:打开刚创建的XLS文件,并修改其中的内容,然后,由用户决定是否保存。'); 　　WorkBook:=eclApp.workBooks.Open(xlsFileName); 　　eclApp.Cells(2 , 1):='Excel文件类型'; 　　if MessageDlg(xlsFileName+'文件已被修改,是否保存?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then 　　WorkBook.save 　　else 　　workBook.Saved := True; //放弃修改 　　WorkBook.Close; 　　eclApp.Quit; 　　//退出Excel Application 　　//释放VARIANT变量 　　eclApp:=Unassigned; 　　except 　　ShowMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开,或系统错误。'); 　　WorkBook.close; 　　eclApp.Quit; 　　//释放VARIANT变量 　　eclApp:=Unassigned; 　　end; 　　end; 　　end. 　　经过上述操作过程后,我们就可以很放心地将数据库中的数据转换成Excel文件了。 ///////2 在Delphi 5中简单地封装了一组Microsoft Office自动化对象(Automation servers)。 它使得我们很容易地把Office中的应用程序(Word, Excel, PowerPoint, Outlook and  Access等)当作一个com应用服务器进行控制。在Delphi 5中已经带了Word与PowerPoint 的例子，因为Excel的调用与这两个应用服务器的调用略有不同，所以本人根据这两个例子 写了个Excel 97的简单例子以供参考。 步聚 创建一个普通Application。 在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 连接Excel 97，具体方法如下： 打开Excel97。 Try      ExcelApplication1.Connect;      Except      End;      ExcelApplication1.Visible[0]:=True; 增加一个Workbook。 ExcelWorkbook1.ConnectTo(ExcelApplication1. Workbooks.Add(EmptyParam,0)); 添加一个Worksheet。  var   Temp_Worksheet: _WorkSheet;   begin   Try   Temp_Worksheet:=ExcelWorkbook1.   WorkSheets.Add(EmptyParam, EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;//(注意) ExcelWorkSheet1.ConnectTo(Temp_WorkSheet); Except ShowMessage('Failure');              End;         end; 关闭Excel.  Try  ExcelApplication1.Quit;  ExcelWorksheet1.Disconnect;  ExcelWorkbook1.Disconnect;  ExcelApplication1.Disconnect;  Except  End; 对Excel的一些操作: 选择当前Workbook的某一Worksheet. procedure TForm1.ComboBox1DropDown (Sender: TObject); var    i: Integer; begin      ComboBox1.Clear;      For i:=1 to ExcelWorkbook1.      Worksheets.Count do       ComboBox1.Items.Add         ((ExcelWorkbook1.Worksheets.Item         as _WorkSheet).Name); end; procedure TForm1.ComboBox1Change (Sender: TObject); begin      ExcelWorkSheet1.ConnectTo (ExcelWorkbook1.Worksheets.Item  [ComboBox1.ItemIndex+1] as _WorkSheet);      ExcelWorkSheet1.Activate; end; 选择某一Workbook: procedure TForm1.ComboBox2DropDown (Sender: TObject); var    i: Integer; begin ComboBox2.Clear; if ExcelApplication1.Workbooks.Count >0 then For i:=1 to ExcelApplication1.Workbooks.Count do Combobox2.Items.Add(ExcelApplication1. Workbooks.Item.Name); end; procedure TForm1.ComboBox2Change(Sender: TObject); begin ExcelWorkSheet1.Disconnect; ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks. Item[Combobox2.ItemIndex+1]);      ExcelWorkBook1.Activate;      ExcelWorksheet1.ConnectTo(ExcelWorkBook1. ActiveSheet as _WorkSheet);      ExcelWorkSheet1.Activate; end; 对某一单元格进行赋值及取值。 procedure TForm1.Button5Click(Sender: TObject); begin      ExcelWorksheet1.Cells.Item[SpinEdit2.Value, SpinEdit1.Value]:=Edit1.Text; end; procedure TForm1.Button6Click(Sender: TObject); begin      Edit1.Text:=ExcelWorksheet1.Cells.Item[ SpinEdit2.Value,SpinEdit1.Value]; end; 选择某一区域 ExcelWorkSheet1.Range['A1','C1'].Select; 打开一个Excel文件。      if OpenDialog1.Execute then         Begin              Try ExcelWorkBook1.ConnectTo (ExcelApplication1.Workbooks.Open      (OpenDialog1.FileName, EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,      EmptyParam,EmptyParam, EmptyParam,EmptyParam,0));      ExcelWorkSheet1.ConnectTo (ExcelWorkBook1.Activesheet        as _Worksheet);              Except;              End;         End;

旭日升 · 2003-05-31

我的，简单实用，供你参考一下： ///////// unit XuLib; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids, Excel2000,   OleServer, Mask, DBCtrls, ComCtrls; //////////////////////////////////////////////////////////////////////////////// Procedure DBToExcel ( ModuleName : String ;  // Excel 模块文件名 *.Xlt   FileName: String ;  // Excel 目标文件名 *.Xls   DBGrid : TDBGrid ;  // TDBGrid 控件名   Row : Integer ;  // 起始行   Col : Integer   // 起始列 ) ; //////////////////////////////////////////////////////////////////////////////// implementation //////////////////////////////////////////////////////////////////////////////// //函数名 :  DBToExcel // //  功能：将TDBGrid 的数据导入到从某模板文件建立的 Excel 文档中, //  举例 :  DBToExcel( 'C:/ReportTable.Xlt', 'C:/ReportTable.Xls', //                       DBGrid1, 5, 1 ) ;                                                             // //  注意  ：所指定的模板文件*.xlt, 必须已存在 //////////////////////////////////////////////////////////////////////////////// Procedure DBToExcel ( ModuleName : String ;  // Excel 模块文件名 *.Xlt   FileName: String ;  // Excel 目标文件名 *.Xls   DBGrid : TDBGrid ;  // TDBGrid 控件名   Row : Integer ;  // 起始行   Col : Integer  // 起始列 ) ; Var       ExlApp : TExcelApplication ;       ExlBook : TExcelWorkBook ;       ExlSheet : TExcelWorkSheet ;       i, j : Integer ;       temp1, temp2 : OleVariant ; Begin       // 判断指定的模板文件是否存在       ModuleName := Trim(ModuleName) ;       If FileExists(ModuleName)= False Then          begin                ShowMessage( '模板文件: '+ ModuleName + ' 不存在 !' ) ;                Exit ;          end ;       // 创建 Excel 服务器控件       ExlApp := TExcelApplication.Create(nil);       ExlBook := TExcelWorkBook.Create (nil);       ExlSheet := TExcelWorkSheet.Create (nil) ;       // 连接 Excel 服务器       Try          ExlApp.Connect ;       Except          ShowMessage ('连接失败，可以没装 Excle') ;          Abort ;       End ;       // 从指定的模板文件*.xlt 新建一 Excel 文档       temp1 := ModuleName ; temp2 := 1 ;       ExlApp.Workbooks.Add( temp1, temp2) ;       ExlBook.ConnectTo(ExlApp.Workbooks[1] );       ExlSheet.ConnectTo(ExlBook.Worksheets[1] As _WorkSheet );       // 把 TDBGrid 的数据导入 Excel 中       DBGrid.DataSource.DataSet.First ;       i := Row ;       While Not(DBGrid.DataSource.DataSet.Eof)  Do         Begin               For j:=Col  To DBGrid.FieldCount+ Col-1  Do                   ExlSheet.Cells.Item[i,j]:= DBGrid.Fields[j-col].AsString ;               DBGrid.DataSource.DataSet.Next ;               i := i+1 ;         End ;       // 保存到指定的文件       FileName := Trim(FileName) ;       IF FileExists(FileName) Then DeleteFile(FileName) ;       ExlSheet.SaveAs(FileName);       // 关闭 Excel 服务器       ExlApp.Disconnect ;       ExlApp.Quit ;   ExlApp.Free;  ExlBook.Free;  ExlSheet.Free; End; // End of The Procedure DbToExcel_2() ///////////////////////////////////// end.

苦海无边 · 2003-05-31

to:luky_99 呵呵精华都贴了 楼主 luky_99的东西好收藏吧

燕狂徒 · 2003-06-02

谢谢各位了  我的问题解决了！[

][

]

利用delphi打开excel文件同时进行写入数据!(100分)

燕狂徒

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

ZhangOk

Unregistered / Unconfirmed

Wjzhou

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

luky_99

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

苦海无边

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

Similar threads

利用delphi打开excel文件 同时进行写入数据!(100分)

燕狂徒

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

ZhangOk

Unregistered / Unconfirmed

Wjzhou

Unregistered / Unconfirmed

zealothasu

Unregistered / Unconfirmed

luky_99

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

苦海无边

Unregistered / Unconfirmed

燕狂徒

Unregistered / Unconfirmed

Similar threads

利用delphi打开excel文件同时进行写入数据!(100分)