如何使用XlsReadWriteII在<em>Delphi</em>中读取Ex...-delph

var
s:string;
xls:TXlsReadWrite;
begin
Xls.filename:='c:\123.xls';
xls.read;
s:=xls.sheets[0].asstring[0,0];
showmessage(s);
xls.sheets[0].asstring[0,0]:='新闻界';
xls.savetofile('c:\234.xls');
end;

试试这个方抄法：zhidao
var
s:string;
xls:TXlsReadWrite;
begin
Xls.filename:='c:\123.xls';
xls.read;
s:=xls.sheets[0].asstring[0,0];
showmessage(s);
xls.sheets[0].asstring[0,0]:='新闻界';
xls.savetofile('c:\234.xls');
end;
var
s:string;
xls:TXlsReadWrite;
begin
Xls.filename:='c:\123.xls';
xls.read;
s:=xls.sheets[0].asstring[0,0];
showmessage(s);
xls.sheets[0].asstring[0,0]:='新闻zhidao界专属';
xls.savetofile('c:\234.xls');
end;

var
s:string;
xls:TXlsReadWrite;
begin
Xls.filename:='c:\123.xls';
xls.read;
s:=xls.sheets[0].asstring[0,0];
showmessage(s);
xls.sheets[0].asstring[0,0]:='新闻界';
xls.savetofile('c:\234.xls');
end;