起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 420|回复: 10

【结贴】ExceltoTable

[复制链接]
发表于 2009-11-22 09:59:15 | 显示全部楼层 |阅读模式
为什么写
ExcelToTable1.FileName:= AFileName;   时候报告错误如下:
[错误]Biz:\ZKJTWZGLXT\CS\DREXCELCS\EXCELTOTABLE.FUNC.DIR\DRExcel.Form.pas(38, 21): Undeclared identifier "FileName"

是不是没有引入什么?
回复

使用道具 举报

 楼主| 发表于 2009-11-22 10:46:19 | 显示全部楼层
那段代码如下:
procedure TDRExcel.Button1Click(Sender: TObject);
var
  AFileName:String;
begin
  if OpenDialog1.Execute then
    AFileName := OpenDialog1.FileName;
  if AFileName.Length>0 then
  begin
    try
      ExcelToTable1.FileName:= AFileName;
    finally
      ExcelToTable1.Free;
    end;
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2009-11-22 13:34:24 | 显示全部楼层
你写的不对,请用“ExcelToTable”在bbs上搜索
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-11-22 19:59:44 | 显示全部楼层
搜索了
搜到了能用的   但是还是不明白我的为什么错误
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-11-22 20:05:16 | 显示全部楼层
找到了个包导入到我的系统可以运行
然后就添加一样名字的控件  一样的代码
然后编译还是报告上面的错误

我新建了一个功能  按照类似的操作  就没有报告那个错误
搞不清楚为什么
回复 支持 反对

使用道具 举报

发表于 2009-11-23 08:43:23 | 显示全部楼层
你在 ExcelToTable1 后面点不出FileName。如果屏蔽这句话,其他的代码能编译过去吗?这个功能就1和2楼的代码吗?没有其他的了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-11-23 08:57:11 | 显示全部楼层
输入ExcelToTable1 后按点  会有FileName的提示   
屏蔽这句话   ExcleToTable.Free可以编译通过  
就那些代码  没别的了    我是添加了一个按钮   测试下怎么使用
回复 支持 反对

使用道具 举报

发表于 2009-11-23 08:59:13 | 显示全部楼层
你的exceltotable控件是动态创建的么?如果不是那位什么要free?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-11-23 09:03:45 | 显示全部楼层

不是动态创建的  直接拖得
在网上找的代码  然后就直接粘贴了
回复 支持 反对

使用道具 举报

发表于 2009-11-23 09:08:45 | 显示全部楼层
恩,那现在ok了么?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-14 06:51 , Processed in 0.046832 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表