Question

在DELPHI中，如何通过编程方式，将EXCEL电子表中的单元格内容提取出来？

比如，有一EXCEL电子表文件，表中有100行，3列。现要通过DELPHI编程，将第一行3个单元格的内容分别提取出来，请问如何解决？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
FExcelApp: Variant;
FSheet: Variant;
FRange: Variant;
begin
FExcelApp := CreateOleObject( 'Excel.Application' );
FExcelApp.Visible := False;
FExcelApp.Caption := 'XXXXXXX';
FExcelApp.WorkBooks.Add;
FExcelApp.WorkSheets[1].Activate;
FSheet := FExcelApp.WorkSheets[1];
FRange := FSheet.Cells[2,2]; //FRange才是你需要的 那个单元格
//接下来对这个FRange设置属性
FRange.NumberFormatLocal := '@';
FRange.Value := '测试。。。。';
FRange.Font.Name := '宋体';
FRange.Font.Size := '12';
FRange.Font.Color := clred;
//--------------------
FExcelApp.Visible := True;

ShowMessage(FRange.Value);
end;

照这个意思推