Question

delphi 对excel 的控制

在网上看了许多资料 2种方式

一种是使用delphi 的server里面的 控件
excelapplication excelworkbook excelworksheet
这三个控件
还有一种是 ole 这种方式叫什么名字我始终没找到
菜鸟来这
用这2中方式 第一种我连文件都打不开
第二种文件可以打开 下面是代码

ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open('d:\01.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));

这是第一种

第二种
excelapp:OleVariant;
begin
try
excelapp:=CreateOleObject('Excel.Application');
excelapp.Visible:=True;

excelapp.workbooks.open('d:\01.xls');
except

同样都是打开 第一种要的参数非常多而且很多都不懂
第一种的写法提示有错误麻烦各位帮忙看看但是第一种有自动补齐很多字母不用敲
第二种参数很少 看起来简单
但是没有 自动补齐 不知道 有没有什么办法 可以使用这种方式也可以自动补齐

我是菜鸟初学delphi 很多英文字母都记住不所以自动补齐可以很省事。

我用的是 delphi 7 企业版的

Answer 1

1、连接
if OpenDialog1.Execute then
begin
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open(OpenDialog1.FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)) ;
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
end;
2、打开
////////打开表//////////
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
////////打开表//////////

3、导入数据
DataModule2.Query1.FieldByName('kehu_name').AsString :=trim(ExcelWorksheet1.Cells.Item[hh,3]);
4、关闭
////////////////关闭表///////////////////
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
////////////////关闭表///////////////////

追问

你好感谢你的回答 我实验了下
发现是我的参数 有误 参数 有 15 个 我确只是填写了 12 个

非常感谢你的回答
想再问下 如果我的路径 和文件名 打算从其他的地方读取过来 那就成了变量

不知道 fliename 这个 参数 支不支持变量 或者使用其他方法达到我的目的 再次感谢

实验了下参数支持 变量谢谢