delphi创建excel 写入数据并保存

在Delphi中，你可以使用Microsoft Office的Interop库，特别是`ComObj`或者`Excel`组件，来与Excel进行交互，包括读取和写入数据。以下是基本步骤：

1. **引用所需库**:
首先，在项目管理器中，添加对`Office`或`Microsoft.Office.Interop.Excel`的引用。

2. **创建Excel应用程序实例**:
使用`CreateOleObject`函数创建一个新的Excel应用对象，例如：

var
  ExcelApp, Worksheet, Range: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
end;

3. **打开或创建工作簿**:
调用`Workbooks.Open`方法打开一个现有工作簿，或`Application.Workbooks.Add`创建新工作簿：

Worksheet := ExcelApp.Worksheets[1]; // 获取第一个工作表
if Worksheet is TExcelWorksheet then
  begin
    // 对于TExcelWorksheet类型，继续操作...
  end;
else
  begin
    // 如果Worksheet不是工作表对象，则创建一个
    Worksheet := ExcelApp.Worksheets.Add;
  end;

4. **写入数据**:
使用`Range.Value`属性设置单元格的数据，例如：

Range := Worksheet.Cells[1, 1]; // 设置A1单元格
Range.Value := 'Hello, Delphi!';

5. **保存工作簿**:
最后，记得调用`Workbook.Save`和`Workbook.Close`关闭工作簿：

Worksheet.Save; // 保存更改
if ExcelApp.Workbooks.Count > 1 then // 判断是否有多余的工作簿，避免意外关闭
  ExcelApp.Workbooks.Item(1).Close(false); // 关闭当前活动工作簿
ExcelApp.Quit; // 关闭整个Excel应用程序