Question

delphi 对Excel数据读取问题

请问一下
ExcelApp.WorkBooks.Open('bom.xls');
读取的不是bom.xls表里的数据，这是什么问题

代码如下
var ExcelApp: Variant;
a,s,d:string;
i:integer
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open('bom.xls');
a:=ExcelApp.Cells[2,1];
s:=ExcelApp.Cells[2,2];
d:=ExcelApp.Cells[2,3];

ListBox1.Items.add(a+s+d);
end;

Answer 1

ExcelApp.WorkBooks.Open( )方法的参数为文件的绝对路径
打开文件后，记着要用quit关闭。不然的话，占着内存，你无法在编辑。
下面是Excel文档在 工程 文件下的代码。
var
ExcelApp: Variant;
a,s,d:string;

begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open('bom.xls');
a:=ExcelApp.Cells[2,1];
s:=ExcelApp.Cells[2,2];
d:=ExcelApp.Cells[2,3];
ExcelApp.quit;
ListBox1.Items.add(a);
ListBox1.Items.add(s);
ListBox1.Items.add(d);

Answer 2

请把ExcelApp.WorkBooks.Open( )方法的参数改为你要打开文件的绝对路径