Question

Delphi有一Excel 文件内容为如下, 写一程式读出来後放在StringGrid控件中. A 1 + B 2 - C 3 * D 4 /

Answer 1

首先在uses的引用加上 ComObj, StdCtrls, Buttons, Grids, OleServer, ExcelXP
然後在界面上加一个StringGrid、一个按钮
按钮的事件如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ExcelApp: Variant;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open('C:\Test.xls');
StringGrid1.Cells[0, 0] := ExcelApp.Cells[1, 1];
StringGrid1.Cells[1, 0] := ExcelApp.Cells[1, 2];
StringGrid1.Cells[2, 0] := ExcelApp.Cells[1, 3];
StringGrid1.Cells[3, 0] := ExcelApp.Cells[1, 4];
ExcelApp.Quit;
except
ExcelApp.Quit;
ShowMessage('Error!');
end;
end;
这样就可以读出Excel中的资料了，如果要再做其他操作，可以再加！
希望对你有帮助！有什麼问题继续追问！

Answer 2

我告诉你一办法,加QQ1330548464

追问

我在公司没得上qq很多网站都给限了

Answer 3

ADO+Excel就可以了，网上大把的资料

追问

初学求详解？