如何在Delphi导入excel读取excel数据

delphi 读取 excel 文件，可以用以下方法：

1、delphi 内置有 office 控件，可以读取 excel 文件，缺点是只针对特定的版本。

2、通过 Ole 对象，建立对 windows 系统中安装的 office（excel）的 ole 对象引用，从而读取 excel 数据。

3、使用专门的第三方控件，比如 XLSReadWrite 等。

{窗口上放ExcelApplication1,ExcelWorkbook1,ExcelWorkSheet1}//-------------另存---------------------

ExcelWorkbook1.Saved[1]:=

true

//不提醒本文档的保存，因为我只关心另存

try

ExcelWorkSheet1.SaveAs(newFileName)

//另存

except

On

E:

EOleException

do

if

E.ErrorCode

<>

-2146827284

then

//不知为何出此错误???

MessageDlg('保存失败！',mtError,

[mbOK],

0)

end//-----------重新打开-------------------

ExcelWorkbook1.Close

ExcelApplication1.Caption:='另存文件名

ExcelApplication1.Workbooks.Open(G_S_AppPath

+

newFileName,

Null,false,Null,Null,Null,Null,Null,Null,Null,true,Null,false,0)

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1])

ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1]

as

_Worksheet)

//关闭Excel

2000

ExcelWorkbook1.Close

ExcelApplication1.Disconnect

ExcelApplication1.Quit

---