delphi7如何读取excel文件
5星 · 超过95%的资源 需积分: 17 184 浏览量
2011-06-02
15:12:40
上传
评论
收藏 51KB DOC 举报 
delphi7 如何读取 excel 文件
我有一个 excel 文件，第一行是某项目预算表，第二行有分公司、项目名，第三行是材料、
数量、单价、金额等列标题，往下就是具体的数据，请问我怎么读取哪些具体数据呀？我
以前见过一个软件，可以在表格中打开 excel 文件，然后可以删除 excel 的前后几行，只
留下规则的中间部分（实际的 excel 文件中这几行并没删除），不知道怎么可以实现这样
的功能
用 ole 可以解决
用 ole 读 excel：会读了后，你自己处理一下要读的数据就行了g
var
I, J: Integer;
MaxRow, MaxCol: Integer;
List, Strs: TStringList;
ExcelApp, Sheet: Variant;
OldTime: TDateTime;
begin
List := TStringList.Create;
Strs := TStringList.Create;
// 创建一个 excel 的 ole 对象g
ExcelApp := CreateOleObject( "Excel.Application ");
try
// 打开一个 excel 文件g
ExcelApp.WorkBooks.Open(Edit1.Text);
List.BeginUpdate;
try
// 设置工作区g
ExcelApp.WorkSheets[1].Activate;
Sheet := ExcelApp.WorkSheets[1];
// 有数据的区域的行数和列数g
MaxRow := Sheet.UsedRange.Rows.count - 1;
MaxCol := Sheet.UsedRange.Columns.count;
for I := 2 to MaxRow do
begin
Strs.Clear;
for J := 1 to MaxCol do
begin
// 获得 excel 的数据第 i 行，第 j 列单元格内的数据g
Strs.Add(Sheet.Cells[i, j].Value);
end;
List.Add(Strs.CommaText);
end;
9nally
// 关闭工作区g
资源评论
fsdfasdfdsaf2014-03-21第三方的表格控件可以直接读取excel的数- marcia_tang2014-04-09有点启发，谢谢
- ldwwhs2015-03-19有点启发作用。 初学者，还是比较有用的
hwxie2014-02-21有点启发作用。- hwgh1232013-07-01初学者，还是比较有用的
