X​L​S​R​e​a​d​W​r​i​t​e​I​I​4​使​用

在DELPHI中使用XLSReadWrite操作Excel简便快捷，软件可在本机未安装Office的前提下读取Excel文件，网上资料较少，现将自己的学习杂记做一记录，Delphi的不同版本，需要不同版本的XLSReadWrite来支持，自己用的Delphi2010，使用XLSReadWriteII4破解版本。

定义一个控件变量

xls:XLSReadWriteII4

文件名指向

xls.FileName:=’D:\测试.xls’

文件读取

xls.Read

文件存取

xls.Write

文件密码设定：若在存取前设定密码，则在下次读取前需指定密码方能正确打开，否则将产生错误！

密码设定-xls.PassWord:=’12345’

                        xls.Write

文件打开- xls.FileName:=’D:\测试.xls’

                          xls.PassWord:=’12345’

                          xls.Read

文件密码清除

xls.PassWord:=’’

xls.Write

单元格赋值-XLSReadWrite中，表格的行号、列号以及工作表序号，均是从0开始计数。

Xls.Sheet[0].AsString[0,0]:=’测试’-将xls文件中工作表0的0行0列单元格赋值为‘测试’。

读取单元格

     Memo1.Text:= Xls.Sheet[0].AsString[0,0]。

删除工作表中的某一行：

     Xls.Sheet[0].DeleteRows(0,0)-删除xls文件中工作表0的第0行。

删除工作表中的连续多行：

     Xls.Sheet[0].DeleteRows(0,2)-删除xls文件中工作表0的第0、1、2行。

删除工作表中的某一列：

     Xls.Sheet[0].DeleteColumns(0,0)-删除xls文件中工作表0的第0列。

删除工作表中的连续多列：

     xls.Sheet[0].DeleteColumns(0,2)-删除xls文件中工作表0的第0、1、2列。

文件中工作表数量读取：

     Memo1.Text：=StrToInt(xls.Sheets.Count)

文件中工作表名称修改：

     xls.Sheet[0].Name:='测试'

新增工作表：

     Xls.Sheets.Insert[2]-在工作表2处插入一个新的工作表。