4
回答
如何生成xls 文件
利用AWS快速构建适用于生产的无服务器应用程序,免费试用12个月>>>   

 (并且显示图片)

举报
liyonggang
发帖于7年前 4回/713阅
共有4个答案 最后回答: 7年前

打开Delphi ,OLE 控件 然后学习 VBA  Excel

use ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  xlApp,Sheet,xlBord:Variant;
begin
  OleContainer1.CreateObject('Excel.Sheet.8',False);
  OleContainer1.Linked;
  xlApp:=OleContainer1.OleObject.Application;

  //设置值
  Sheet := xlApp.WorkBooks[1].WorkSheets[1];
  Sheet.Cells[1,1] := 'XXX软件有限公司测试报表';
  Sheet.Cells[1,1].Font.Color := clBlue; //字本色
  Sheet.Cells[1,1].Font.Name := '隶书'; //字本色
  Sheet.Cells[1,1].Font.Size :=14;

  Sheet.Cells[1,1].HorizontalAlignment := 3; //居中
  Sheet.Cells[4,5] := '1234';

  //设置元
  xlBord := Sheet.Cells[4,5];
  xlBord.Borders.LineStyle := 1;   //边框样式
  xlBord.Interior.ColorIndex := 39; // 颜色

  Sheet.Cells[5,5].Borders.LineStyle := 1;
  Sheet.Cells[5,5].Interior.ColorIndex := 38;

  Sheet.Cells[6,5].Borders.LineStyle := 1;
  Sheet.Cells[6,5].Interior.ColorIndex := 37;

  Sheet.Cells[7,5].Borders.LineStyle := 1;
  Sheet.Cells[7,5].Interior.ColorIndex := 36;

  Sheet.Cells[8,5].Borders.LineStyle := 1;
  Sheet.Cells[8,5].Interior.ColorIndex := 35;
  Sheet.Range['A1','F1'].Merge(True); //合并单元
end;
这样基本就有个样子了,不过好像是独占式打开的,有点不理想。只是只能实现可视化,而不能直接显示图片。

不知道你用什么语言,有很多种方法的。可以直接当作数据库来做也可以的,有专门的针对excel的数据库驱动。

如果是用java的话,就很简单了,有很多开源的包。如jxl,poi等。

顶部