高手请进delphi7导入EXCEL

Question

小弟刚学DELPHI请大家多指教，
我把我的东西贴上来`大家看一下``运行总是出错
这是导入的代码，从网上看到得``我修改了下`
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, FileCtrl, comobj ;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    con1: TADOConnection;
    tbl1: TADOTable;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    qry1: TADOQuery;
    fllst1: TFileListBox;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn3Click(Sender: TObject);
begin
  Application.Terminate;end;procedure TForm1.btn1Click(Sender: TObject);
var
oe:Variant ;
n1:string;
i,j:Integer;
sheetname:Variant;
begin
  oe:=CreateOleObject('excel.application');
  oe.visible:=True;
  oe.workbooks.open(fllst1.FileName);
  j:=2;
   try
with qry1 do
   begin
     n1:='insert into tablename(fieldslist) values(:fieldslist)';
     close     ;
     sql.clear;
     sql.add(n1);
     while oe.worksheets[sheetname].cells[j,1].text<>'' do
     begin
        for i:=1 to dbgrid1.Columns.Count  do
          parameters.items[i-1].value:=Oe.worksheets[sheetname].cells[j,i].Text;
        execsql;
        j:=j+1;
     end;
Oe.visible:=False;
    showmessage('导入完毕');
   end;
   except
     oe.ivsible:=False;
     showmessage('数据库错误或有重复编号，请检查');
   end;
end ;
这是运行时出现的问题：
[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
[Error] Unit1.pas(76): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'本来想做个导入导出``但现在折腾了很久都没弄好，如果那位有源代码或帮忙看一下我这代码`小弟感激不尽``

Answer 1

这个就是你少了一个end，就是最后面加一个“end.”

Answer 2

真的是少了个END啊`刚刚远行了下`现在基本能运行了`但还是有些问题啊``

Answer 3

[Fatal Error] Could not create output file 'E:\客户文档\接口\信易\Project1.exe'
[Fatal Error] Internal error: BC1993
[Fatal Error] Internal error: BC1993

Answer 4

文件如果存在：E:\客户文档\接口\信易\Project1.exe 删掉。删不掉的话结束进程。
如果不存在。
delphi-project-options-directories/conditionals-output directory 后面的内容删掉

Answer 5

就是说不能创建可执行文件，是不是project1.exe已经运行，或者已经存在在进程中如果进程中没有，你看看能不能删除这个可执行文件，如果不能，可能是delphi的bug，我遇到过，你重启一下delphi试试

Answer 6

1.看看存不存这文件夹。。
2.重起一下Delphi

Answer 7

Excel很好操作了。
你就把Excel的每个sheet当做一个预定义的二维数组就可以任意的读写了。

Answer 8

Oe.visible:=False;
  showmessage('导入完毕');
  end;
  except
  oe.ivsible:=False;
  showmessage('数据库错误或有重复编号，请检查');
  end;
end ;
很明显的，没有 end.