Lazarus读写excel

最新推荐文章于 2024-10-16 14:24:08 发布

原创最新推荐文章于 2024-10-16 14:24:08 发布 · 696 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#java #前端 #javascript

本文介绍了如何使用fpspreadsheet控件进行在线Excel文件的读取、写入操作，包括读取特定单元格值，写入数据以及搜索功能的使用实例。

使用控件fpspreadsheet,可以在线安装

var
MyWorkbook: TsWorkbook;
foundWorksheet: TsWorksheet;
foundRow, foundCol: cardinal;
MySearchParams: TsSearchParams;
AFileName, CellValue: string;
Px: integer;
begin
MyWorkbook := TsWorkbook.Create;
AFileName := '初中报名花名册0922.xls';
try
//myworkbook.FileName:=aFilename;

MyWorkbook.ReadFromFile(AFileName);
foundWorksheet := MyWorkbook.GetWorksheetByName('Sheet1');
Px := 1;
CellValue := foundWorksheet.ReadAsText(Px, 3);
QuestionMemo.Lines.Clear;
while CellValue <> '' do
begin
QuestionMemo.Lines.Add(CellValue);
CellValue := foundWorksheet.ReadAsText(Px, 3);//Px行，3指第三列

Inc(Px);
end;
foundWorksheet.WriteCellValueAsString(4244, 3, Edit1.Text);//写入测试
MyWorkbook.WriteToFile(AFileName, True);//true,强制写入
//下面是源码里的示例 Specify search criteria
{MySearchParams.SearchText := 'Hallo';
MySearchParams.Options := [soEntireDocument];
MySearchParams.Within := swWorkbook;//}

// or: MySearchParaams := InitSearchParams('Hallo', [soEntireDocument], swWorkbook);

// Create search engine and execute search
//with TsSearchEngine.Create(MyWorkbook) do begin
//if FindFirst(MySearchParams, foundWorksheet, foundRow, foundCol) then begin
// WriteLn('First "', MySearchparams.SearchText, '" found in cell ', GetCellString(foundRow, foundCol), ' of worksheet ', foundWorksheet.Name);
//while FindNext(MySeachParams, foundWorksheet, foundRow, foundCol) do
// // WriteLn('Next "', MySearchParams.SearchText, '" found in cell ', GetCellString(foundRow, foundCol), ' of worksheet ', foundWorksheet.Name);
// end;
// Free;
// end;
finally
MyWorkbook.Free;
end;