【结贴】语法的问题

pangshaowei · 发表于 2010-7-26 13:18:29

var
  ExcelID:Variant;
begin
  Inherited;
  ExcelID :=Business.System.ComObj.CreateOleObject( 'Excel.Application' );
  ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
end;
这段代码中编译不过去，提示WorkBooks是未识别，请问这样写哪里不对？

zfang · 发表于 2010-7-26 13:21:33

请利用平台的接口：DispatchHelper 或者delphi中自己实现并包装后以第三方控件引入到平台。

pangshaowei · 发表于 2010-7-26 13:27:13

请提示下如何用平台接口DispatchHelper 实现呢

zfang · 发表于 2010-7-26 13:58:29

论坛里搜索一下，比较多的参考帖子，比如
http://bbs.justep.com/forum.php?mod=viewthread&tid=27065
http://bbs.justep.com/forum.php?mod=viewthread&tid=32418

pangshaowei · 发表于 2010-7-26 14:51:15

现在还有一个问题，就是我打开了本地的,Xls文件，我想把该文件中对应表格的数据保存到数据库中，又该如何实现呢？代码如下：

var
  //ExcelID:Variant;
  iFileName:string;
  ExcelID,ExcelID1:Object;
  FApp,FDocs : System.DispatchHelper;
  iNr :String;
begin
  Inherited;
  Self.OpenDialogPerson.Execute;
  iFileName := Self.OpenDialogPerson.FileName;
  ExcelID :=Business.System.ComObj.CreateOleObject( 'Excel.Application' );
  FApp :=System.DispatchHelper.Create(ExcelID);
  FApp.PropertyPut('Visible',[True]);
  ExcelID1 := FApp.PropertyGet('Workbooks',  []);
  FDocs := System.DispatchHelper.Create(ExcelID1);
  FDocs.InvokeMethod('Open', [iFileName]);
  iNr :=对应表格的内容；

最后这句话“iNr :=对应表格的内容；”该如何实现？

zfang · 发表于 2010-7-26 15:01:59

就是说excel文件的内容想保存到数据表中，对么？
那我建议你用一下平台的这个控件：exceltotable试试（不过如果数据量比较大的话可能效率不高）或者用ado的组件，具体你可以论坛里搜索一下，关键字：exceltotable、excel*ado

pangshaowei · 发表于 2010-7-26 15:06:52

好的。我搜搜看

pangshaowei · 发表于 2010-7-26 15:58:36

我如果用exceltotable控件的话，是不是就不用引用DispatchHelper了？

zfang · 发表于 2010-7-26 16:14:54

对的
DispatchHelper是比较原始的用法。

pangshaowei · 发表于 2010-7-26 17:12:03

var
  //ExcelID:Variant;
  iFileName:string;
  ExcelID,ExcelID1:Object;
  FApp,FDocs : System.DispatchHelper;
begin
  Inherited;
Self.OpenDialogPerson.Execute;
  iFileName := Self.OpenDialogPerson.FileName;
  Self.ExcelToTable1.FileName :=iFileName;
  Self.ExcelToTable1.StartRow := 1;
  Self.ExcelToTable1.FieldMap
  请问FeildMap如何用，该如何将Excle表格里的数据取出来呢？不知道FeildMap如何用

		自动登录	找回密码
密码			立即注册