unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XLSReadWriteII5, Grids, IniFiles, Xc12Utils5,
XLSSheetData5, XPMan;

type TDoubleArray = array of double;

type
TfrmMain = class(TForm)
Panel1: TPanel;
btnRead: TButton;
btnWrite: TButton;
edReadFilename: TEdit;
edWriteFilename: TEdit;
btnDlgOpen: TButton;
btnDlgSave: TButton;
dlgSave: TSaveDialog;
dlgOpen: TOpenDialog;
Button1: TButton;
Grid: TStringGrid;
btnAddCells: TButton;
XLS: TXLSReadWriteII5;
XPManifest1: TXPManifest;
procedure btnCloseClick(Sender: TObject);
procedure btnReadClick(Sender: TObject);
procedure btnWriteClick(Sender: TObject);
procedure btnDlgOpenClick(Sender: TObject);
procedure btnDlgSaveClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnAddCellsClick(Sender: TObject);
private
procedure AddCells;

procedure ReadCells;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
Close;
end;

procedure TfrmMain.btnReadClick(Sender: TObject);
begin
XLS.Filename := edReadFilename.Text;
XLS.Read;

ReadCells;
end;

procedure TfrmMain.btnWriteClick(Sender: TObject);
begin
XLS.Filename := edWriteFilename.Text;
XLS.Write;
end;

procedure TfrmMain.btnDlgOpenClick(Sender: TObject);
begin
dlgOpen.FileName := edReadFilename.Text;
if dlgOpen.Execute then
edReadFilename.Text := dlgOpen.FileName;
end;

procedure TfrmMain.btnDlgSaveClick(Sender: TObject);
begin
dlgSave.FileName := edWriteFilename.Text;
if dlgSave.Execute then
edWriteFilename.Text := dlgSave.FileName;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TfrmMain.ReadCells;
var
C,R: integer;
Ref: string;
Cnt: integer;
vError: TXc12CellError;
CellType: TXLSCellType;
begin
Cnt := 0;
XLS[0].CalcDimensions;
for R := XLS[0].FirstRow to XLS[0].LastRow do begin
for C := XLS[0].FirstCol to XLS[0].LastCol do begin
CellType := XLS[0].CellType[C,R];
if CellType <> xctNone then begin
Ref := ColRowToRefStr(C,R);

Grid.Cells[0,Cnt + 1] := Ref;

case CellType of
xctBlank : begin
Grid.Cells[1,Cnt + 1] := ‘Blank‘;
end;
xctBoolean : begin
Grid.Cells[1,Cnt + 1] := ‘Boolean‘;
if XLS[0].AsBoolean[C,R] then
Grid.Cells[2,Cnt + 1] := ‘TRUE‘
else
Grid.Cells[2,Cnt + 1] := ‘FALSE‘;
end;
xctError : begin
Grid.Cells[1,Cnt + 1] := ‘Error‘;
vError := XLS[0].AsError[C,R];
Grid.Cells[2,Cnt + 1] := Xc12CellErrorNames[vError];
end;
xctString : begin
Grid.Cells[1,Cnt + 1] := ‘String‘;
Grid.Cells[2,Cnt + 1] := XLS[0].AsString[C,R];
end;
xctFloat : begin
Grid.Cells[1,Cnt + 1] := ‘Float‘;
Grid.Cells[2,Cnt + 1] := FloatToStr(XLS[0].AsFloat[C,R]);
end;
xctFloatFormula : begin
Grid.Cells[1,Cnt + 1] := ‘Formula, float‘;
Grid.Cells[2,Cnt + 1] := FloatToStr(XLS[0].AsFloat[C,R]);
Grid.Cells[3,Cnt + 1] := XLS[0].AsFormula[C,R]
end;
xctStringFormula : begin
Grid.Cells[1,Cnt + 1] := ‘Formula, string‘;
Grid.Cells[2,Cnt + 1] := XLS[0].AsString[C,R];
Grid.Cells[3,Cnt + 1] := XLS[0].AsFormula[C,R]
end;
xctBooleanFormula: begin
Grid.Cells[1,Cnt + 1] := ‘Formula, boolean‘;
if XLS[0].AsBoolean[C,R] then
Grid.Cells[2,Cnt + 1] := ‘TRUE‘
else
Grid.Cells[2,Cnt + 1] := ‘FALSE‘;
Grid.Cells[3,Cnt + 1] := XLS[0].AsFormula[C,R]
end;
xctErrorFormula : begin
Grid.Cells[1,Cnt + 1] := ‘Formula, error‘;
vError := XLS[0].AsError[C,R];
Grid.Cells[2,Cnt + 1] := Xc12CellErrorNames[vError];
Grid.Cells[3,Cnt + 1] := XLS[0].AsFormula[C,R]
end;
end;

Inc(Cnt);
if Cnt > Grid.RowCount then
Exit;
end;
end;
end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
S: string;
Ini: TIniFile;
begin
S := ChangeFileExt(Application.ExeName,‘.ini‘);
Ini := TIniFile.Create(S);
try
edReadFilename.Text := Ini.ReadString(‘Files‘,‘Read‘,‘‘);
edWriteFilename.Text := Ini.ReadString(‘Files‘,‘Write‘,‘‘);
finally
Ini.Free;
end;

Grid.Cells[0,0] := ‘Refrence‘;
Grid.Cells[1,0] := ‘Cell type‘;
Grid.Cells[2,0] := ‘Value‘;
Grid.Cells[3,0] := ‘Formula‘;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
var
S: string;
Ini: TIniFile;
begin
S := ChangeFileExt(Application.ExeName,‘.ini‘);
Ini := TIniFile.Create(S);
try
Ini.WriteString(‘Files‘,‘Read‘,edReadFilename.Text);
Ini.WriteString(‘Files‘,‘Write‘,edWriteFilename.Text);
finally
Ini.Free;
end;
end;

procedure TfrmMain.btnAddCellsClick(Sender: TObject);
begin
AddCells;

ReadCells;
end;

procedure TfrmMain.AddCells;
begin
// Column and row references are zero-relative. Cell A1 have column 0 and row 0.

// Add a float value in cell A1
XLS[0].AsFloat[0,0] := 125;
// Cell references can also be given as a string when using the AsXXXRef properties.
XLS[0].AsFloatRef[‘A2‘] := 250;

// Inserting a float values in column B, starting at row 4 and continuing to row 6.
// The array argument can be of any size.
XLS[0].InsertFloatColValues(0,3,[10,20,30]);

XLS[0].AsString[1,0] := ‘Hello, world‘;
XLS[0].AsStringRef[‘B2‘] := ‘Hello again‘;

XLS[0].InsertStringColValues(1,3,[‘One‘,‘Two‘,‘Three‘]);

XLS[0].AsBoolean[2,0] := True;
XLS[0].AsBooleanRef[‘C2‘] := False;

// Adding Excel error values.
XLS[0].AsError[2,0] := errDiv0;
XLS[0].AsErrorRef[‘C2‘] := errNA;

// Adding values as variants.
XLS[0].AsVariant[3,0] := ‘Oink!‘;
XLS[0].AsVariantRef[‘D2‘] := 750.25;

// Inserting a float values in Row 11, starting at col A and continuing to col C.
// The array argument can be of any size.
XLS[0].InsertFloatRowValues(0,10,[100,200,300]);

XLS[0].InsertFloatRowValues(5,10,[1000,2000,3000]);

// Inserting values as a variant array. The values can be numeric, string or boolean.
// Error values are not possible as delphi will translate the error type to
// an integer value.
XLS[0].InsertRowValues(0,11,[1,‘Two‘,True]);

XLS[0].InsertColValues(6,0,[1,‘Two‘,True]);

// Add formulas. Formuas are entered as text strings in the same syntax as
// in Excel.
XLS[0].AsFormula[4,0] := ‘SUM(A10:H11)‘;
// Set the result of the formula (this value is wrong).
XLS[0].AsNumFormulaValue[4,0] := 5000;
XLS[0].AsFormulaRef[‘E2‘] := ‘MAX(A10:H11)*100‘;

// Calculate the workbook. This will replace the above wrong formula result
// with the correct value.
// This os only of importance when working with the file in the component,
// or possible if the file is exported to another software that don‘t calculate
// formulas.
// When the file is opened in Excel, the formulas will be recalculated.
XLS.Calculate;

XLS[0].CalcDimensions;
end;

end.
例子1、

TXLSReadWriteII2版本导出Excel文件:

procedure TForm1.N1Click(Sender: TObject);

var

i: Integer;

aSaveDialog: TSaveDialog;

aFileName, aStampTime: AnsiString;

aXlsObj: TXLSReadWriteII2;

p: PDataRec;

begin

aSaveDialog := TSaveDialog.Create(Self);

try

aSaveDialog.InitialDir := ExtractFilePath(ParamStr(0));

aSaveDialog.DefaultExt := ‘xls‘;

aSaveDialog.Filter := ‘Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*‘;

aStampTime := FormatDateTime(‘yyyymmddhhnnss‘, Now);

aSaveDialog.FileName := aStampTime;

if not aSaveDialog.Execute then

Exit;

aFileName := aSaveDialog.FileName;

if aFileName = ‘‘ then

Exit;

finally

aSaveDialog.Free;

end;

aXlsObj := TXLSReadWriteII2.Create(nil);

try

aXlsObj.Sheets[0].AsWideString[0, 0] := ‘id‘;

aXlsObj.Sheets[0].AsWideString[1, 0] := ‘table‘;

aXlsObj.Sheets[0].AsWideString[2, 0] := ‘kind‘;

aXlsObj.Sheets[0].AsWideString[3, 0] := ‘rows‘;

aXlsObj.Sheets[0].AsWideString[4, 0] := ‘times‘;

aXlsObj.Sheets[0].AsWideString[5, 0] := ‘desc‘;

for i:=1 to FDataHash.Count - 1 do

begin

p := FDataHash[i];

aXlsObj.Sheets[0].AsWideString[0, i] := Format(‘%d‘, [p.id]);

aXlsObj.Sheets[0].AsWideString[1, i] := p.table;

aXlsObj.Sheets[0].AsWideString[2, i] := p.kind;

aXlsObj.Sheets[0].AsWideString[3, i] := Format(‘%d‘, [p.rows]);

aXlsObj.Sheets[0].AsWideString[4, i] := Format(‘%d‘, [p.times]);

aXlsObj.Sheets[0].AsWideString[5, i] := p.desc;

end;

aXlsObj.Filename := aFileName;

aXlsObj.Write;

ShowMessage(Format(‘导出文件‘+#13#10+‘%s‘+#13#10 +‘成功!‘, [aFileName]));

finally

aXlsObj.Free;

end;

end;

TXLSReadWriteII5 单元格读写的更多相关文章

  1. 【原创】.NET读写Excel工具Spire.Xls使用(3)单元格控制

                  本博客所有文章分类的总目录:http://www.cnblogs.com/asxinyu/p/4288836.html .NET读写Excel工具Spire.Xls使用文章 ...

  2. NPOI.dll 用法。单元格,样式,字体,颜色,行高,宽度。读写excel

    NPOI.dll 用法.单元格,样式,字体,颜色,行高,宽度.读写excel 转载:http://yuncode.net/code/c_531e679b3896495 view source prin ...

  3. C#读写EXCEL单元格的问题

    最近, 我在用C#开发一个EXCEL Add-In的时候,发现了一些害人不浅的坑,特来总结列举如下: 这里我读写EXCEL引用的是using Excel = Microsoft.Office.Inte ...

  4. Python 实现 Excel 里单元格的读写与清空操作

    #coding=utf-8 # coding=utf-8 作用是声明python代码的文本格式是utf-8,python按照utf-8的方式来读取程序. # 如果不加这个声明,无论代码中还是注释中有中 ...

  5. 转载 NPOI.dll 用法。单元格,样式,字体,颜色,行高,宽度。读写excel

    我用的版本是1.25的.每个版本用法有一点不同 using System; using System.Collections.Generic; using System.ComponentModel; ...

  6. 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格

    using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We ...

  7. POI读写Excel-操作包含合并单元格操作

    在上篇博客中写到关于Excel操作解析成相关的类,下面将写入一种Excel对Excel表格读取和写入. 对于Excel表格操作,最重要的是创建workBook.其操作顺序是: 1.获得WorkBook ...

  8. ASP.NET 导出gridview中的数据到Excel表中,并对指定单元格换行操作

    1. 使用NPOI读取及生成excel表. (1)导出Click事件: 获取DataTable; 给文件加文件名: string xlsxName = "xxx_" + DateT ...

  9. C#操作Excel的技巧与方法 设置单元格等

    C#操作Excel可以分为客户端和插件版本,区别就是是否需要Excel环境,功能实现一样 一.通用操作与处理(有点乱有时间再整理) 1:工程对excel类库的导入,如: c:\program file ...

随机推荐

  1. [LeetCode&Python] Problem 674. Longest Continuous Increasing Subsequence

    Given an unsorted array of integers, find the length of longest continuousincreasing subsequence (su ...

  2. C#缓存流的使用浅析

    C#缓存流的使用实例:用缓存流复制文件,C#文件处理操作必须先导入命名空间: using System.IO; ///在按钮的Click事件中添加如下代码: private void button1_ ...

  3. LVS DR模式搭建、keepalived+lvs

    1.LVS DR模式搭建 条件: 即三台机器,在同一内网. 编辑脚本文件:/usr/local/sbin/lvs_dr.sh #! /bin/bashecho 1 > /proc/sys/net ...

  4. mysql连接拍错总结

    1. ERROR 2003 (HY000): Can't connect to MySQL server on 'localhost' (10060)   ? 关闭网络防火墙.

  5. pxe+Kickstart自动装机补充知识点

    1.vmlinuzvmlinuz是可引导的.压缩的内核.“vm”代表“Virtual Memory”.Linux 支持虚拟内存,不像老的操作系统比如DOS有640KB内存的限制.Linux能够使用硬盘 ...

  6. Java高级特性 第4节 输入输出流

    一.使用I/O操作文件 关键步骤: 使用File类操作文件或目录属性 使用FileInputStream类读文本文件 使用FileOutputStram类写文本文件 使用BufferedReader类 ...

  7. pac4j探索(一)之buji-pac4j shiro整合Cas实现单点登录

    https://blog.csdn.net/hxm_code/article/details/79181218 https://blog.csdn.net/hxm_code/article/detai ...

  8. Bootstrap格式转换代码

    网址:http://www.w3cschool.cc/bootstrap/bootstrap-responsive-utilities.html <div class="contain ...

  9. es的返回数据结构

    ES即简单又复杂,你可以快速的实现全文检索,又需要了解复杂的REST API.本篇就通过一些简单的搜索命令,帮助你理解ES的相关应用.虽然不能让你理解ES的原理设计,但是可以帮助你理解ES,探寻更多的 ...

  10. 《企业IT架构转型之道》读书笔记

    1 出发点:企业IT系统建设普遍面临的问题和处境 很多企业面临的问题和处境: 『烟囱式』系统建设模式. 当业务部门提出业务需求,信息中心部门进行系统集成商的招投标,再进入到需求收集.需求分析.开发.测 ...