Question

delphi5 读取excel文件中的A1单元格的数据

我已经写了
OpenControl.Filter := 'Excel文件(*.xls)|*.xls';
OpenControl.DefaultExt := 'XLS';
if OpenControl.Execute then
.......
这里已经打开了excel文件，该如何读取其中的第一张表的A1单元格的数据，求大神帮忙！

Answer 1

你可以用ExcelApplication控件可以轻松实现你的要求啊！
(一) 使用动态创建的方法
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelApp.Visible := True;
2) 更改 Excel 标题栏:
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度(单位:磅)(1磅＝0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

8、文字水平居中：Excelid.worksheets[1].Rows[1].HorizontalAlignment :=$FFFFEFF4;
文字垂直居中：Excelid.worksheets[1].Rows[1].VerticalAlignment :=$FFFFEFF4;
9、 插入一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
10、 删除一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;

追问

你看看我的代码，在我的基础上怎么实现，我已经打开了Excel了

追答

如果是单独的excel程序，相当于两个不同的程序很难控制的；你可以尝试sendemessage发送消息的方法实现,如果你的代码已经打开了excel，找到excel程序的句柄，默认光标就应当是在A1单元格，然后发送字符串消息到句柄；
实现很麻烦的，用控件省事，也不容易出错。