高手请进：delphi与excel关联的问题

Question

我想利用delphi编程实现从指定的文本文件中读入数据与excel表的域关联，匹配。
请问如何实现。主要问题是如何将文本文件中的字段与excel域关联

Answer 1

网上的资料：
1. 链接Excel表。针对一定的Excel表做一定的工作。
2. 控制WorkBook、Sheet。建立新的WorkBook、Sheet等工作。
3. 控制单元格。更改单元格属性，单元格边框，字体等等。　　链接Excel通过建立Ole对象来实现，由于Delphi自带的控件的属性没有覆盖控制Excel的所有基本属性，所以通过建立Ole对象来实现.
先在Private中声明三个需要的Ole对象：
Excel_app:OleVariant
Excel_worksheet:OleVariant
Excel_WorkBook:OleVariant;
再通过
try
ExMB_OK);
Abort;
end;
try
Excel_worksheet := Excel_workbook.Worksheets[XsbdName];
except
application.MessageBox('报表显示表单名有误！', '提示信息', MB_OK);
Abort;
end;
　　现在建立了其链接，其下来的工作就是控制Excel，往Excel中写入数据，大家知道，Excel每个单元格由于其属性不同而存储的数据形式也是不同的，如：在Excel中如果单元格的属性为"常规"或"数字"，则其存储的数字格式不能为"001""000012"等，而在数据库中这种数据是很正常存在的，所以导出数据是在Excel表的默认状态下，就可能出现数据的错误。只有在Delphi中控制Excel来实现了。
通过建立Excel表的宏，来在Delphi中模拟是很好的路子。
通过实践，要在Delphi中控制Excel表主要有这些方法：
1． 建立新的Sheet
Excel_app.sheets.add;（添加一个新的sheet）
Excel_app.visible:=true;（使新建的Excel对象可视）
2．选中特定的范围
Excel_WorkSheet.Range[Excel_App.Cells[Temp1，Temp2]].Select;
3．对选中的范围进行设置
　　Excel_App.Selection.NumberFormatLocal := '@';(设置选中的单r>大家都知道，Excel有很多的数据展现方式，比如求函数、chart、特殊格式的单元格、批注等等。本文就以上述罗列形式酿坛酒，不知是否好酒，但既"吴刚捧出桂花酒"，就请各位尝尝，兴许还有一丝丝桂花的香。
先来说说chart。chart具有较好的视觉效果，可方便用户查看数据的差异、图案和预测趋势。比如我们公司的上班刷卡，那些记录如果是存储在数据库中，我们要分析，是不是要一个记录一个记录来分析，太麻烦。如果用chart呢？
首先在form中置入ExcelChart组件，通过以下语句建立chart实例：
procedure TMain.SetUpChart;
var
DataSheet: _Worksheet; 
Ax: Axis; //轴
Rnge, ChType: OleVariant; //rnge为chart数据范围，chtype为chart类型
begin
Datasheet := WkBk.Worksheets['Data'] as _Worksheet;
Rnge := Datasheet.Range['A2','E10']; // 数据范围，包括标题
ChType := TOleEnum(xl3DColumn); //chart类型
Chart1.ChartWizard(Rnge, ChType, EmptyParam, xlColumns, 1, 1, True,
WS.Range['B1', 'B1'].Text, // char标题
'Test', 'Scores', E。
xlSheet.Cells(1, 3) := '=SUM(A1:B1)'; //求和
xlSheet.Cells(1, 4) := '=AVERAGE(A1:B1)';//求平均值　　再谈谈单元格。"人靠衣服，马靠鞍"，我们的单元格如果披上华丽的外衣，也是别有一番风味，这种视觉上的效果是特别有用的，可使得人心旷神怡，如果再合理的搭配颜色，更加使得数据一目了然。
单元格的属性基本有以下一些：单元格边框、单元格背景色、单元格对齐格式、单元格字体等。
ExcelDE_Worksheet.range[A':'A].select; //选择该列
ExcelDE_app.selection.numberFormatLocal := '@'; //单元格设置
ExcelDE_app.selection.wraptext := true; //自动回车
ExcelDE_worksheet.columns[A ':'A].EntireRow.autofit;//行自动调整
ExcelDE_worksheet.Selection.Interior. ColorIndex = 8;//设置颜色
ExcelDE_worksheet.Selection.Interior .Pattern = xlSolid;//实填充
单元格的设置可以有很多种方式，可以根据不同的要求来设置。这里只是罗列出基本的设置方式