デルファイは、Excelを読みます

ユニットuExcelUnit; 

インタフェース

の使用
  Winapi.Windows、System.SysUtils、System.Variants、System.Classes、System.Win.ComObj。

機能 OpenExcel（ファイル名：文字列）：バリアント。
関数 ReadCell（エクセル：変異体; sheetIndex：整数、行、列：整数）：ストリング。
手順 WriteCell（エクセル：変異体; sheetIndex：整数、行、列：整数;値：文字列）;
手順CloseExcel（エクセル：バリアント）; 

関数 OpenReadExcel（ファイル名：文字列 ; sheetIndex、行、列：整数）：ストリング。
機能 OpenWriteExcel（ファイル名：文字列; sheetIndex、行、列：整数。値：文字列）：文字列; 

実装


関数 OpenReadExcel（ファイル名：文字列 ; sheetIndex、行、列：整数）：ストリング。
VAR 
  エクセル：バリアント。
開始
  Excelを： = OpenExcel（ファイル名）;
  試行の
    結果： = ReadCell（エクセル、sheetIndex、行、列）。
  最後に
    CloseExcel（エクセル）; 
  エンド;
エンド; 

関数 OpenWriteExcel（ファイル名：文字列 ; sheetIndex、行、列：整数;値：文字列）：列;
VAR 
  エクセル：バリアント。
開始
  Excelを： = OpenExcel（ファイル名）;
  試す
    WriteCell（エクセル、sheetIndex、行、列、値）。
  最後に
    CloseExcel（エクセル）; 
  エンド;
エンド; 

機能 OpenExcel（ファイル名：文字列）：バリアント。
開始
  結果： = CreateOleObject（' まずExcel.Application ' ）; 
  Result.Visible： = 真; 
  Result.WorkBooks.Open（ファイル名）; 
  Result.Visible： = falseは、
エンド; 

関数ReadCell（エクセル：変異体; sheetIndex：整数、行、列：整数）：ストリング。
開始
  excel.WorkSheetsを[sheetIndex] .Activate。
  結果： = 文字列（excel.Cells [行、列]）。
エンド; 

手順 WriteCell（エクセル：変異体; sheetIndex：整数、行、列：整数;値：文字列）;
開始
  excel.WorkSheetsを[sheetIndex] .Activate。
  excel.Cells [行、列]： = 値。
  excel.ActiveWorkBook.Save; 
エンド; 

手順CloseExcel（エクセル：バリアント）;
開始
  excel.Quitを。
エンド; 

終わり。