怎么把execl导入Access数据库？

Question

怎样用程序实现execl导入Access数据库？？？？

Answer 1

如果只倒一次，可以直接用access的汇入功能

Answer 2

大哥能否说清楚点,我的想法是在程序中打开一个对话框,选择要导入的Execl,确定即可导入数据库中的某个表中~~~!!!!!

Answer 3

创建一个access文件，然后打开，在文件菜单下面-获取外部数据-导入，选择xls文件，然后就可以了

Answer 4

OpenDialog1.DefaultExt:='xls';
    OpenDialog1.Filter:='Excel 文件|*.xls';
    OpenDialog1.Execute;   // fileStr:= OpenDialog1.DefaultExt+OpenDialog1.FileName;
    fileStr:=OpenDialog1.FileName;
    
      if  fileStr<>'' then
        begin
         ADOConnection1.connected:=false;
      打开excel   ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+fileStr+';Mode=Share Deny None;Extended Properties="Excel 8.0;"';
         ADOConnection1.Connected:=true;
        end  //打开excel表
      //取得excel工作区名
      else
       begin
           exit;
       end;ADOQuery1.Connection:=ADOConnection1;
      ADOQuery1.close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from [资产负债表$]');
      ADOQuery1.open;

Answer 5

楼上的明显不行,用AdoQuery根本连接不了EXCEL数据表,更不用谈执行SQL语句,
只有用ADOTable 或者ADODataSet才可以连上!
ADOTable 的话要把TableDirect属性选择为True;
ADODataSet的话要把CommandType属性选择为cmdTableDirect;
然后TableName属性选择你所要导入的表!
循环插入即可!不过速度很慢!

Answer 6

循环插入即可!不过速度很慢!?????
一行一行的读么??
大哥麻烦你给个例子好吗!我对D7和office 相联系的例子没见过,谢谢~!`

Answer 7

首先需要新建一个Data Module，在它的窗体上边添加TADOConnectin（con），TADOTable（tbl），TDataSource（ds）。
var
  DM:TDM
  xLSapp :Variant;con连接Access数据库，tbl的tablename属性是数据库中的表名 ，ds的Dataset属性为tbl。
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  XlsApp := CreateOleObject('Excel.Application');
end;  //DM窗体要最先创建。

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
    strSQL:string;
begin
  try
    ADOConnection2.Connected:=true;
    strSQL:='select * into orders from [excel 8.0;database=G:\111.xls].[sheet1$]';
    ADOConnection1.Execute(strSQL);
    adoconnection1.Connected:=true;
    showmessage('SSS');
  except
    on e:exception do
    memo1.Lines.Add(e.Message);
  end;
end;如果ACCESS中已经存在了该表,要先用DROP删除改表.不然会报错

Answer 9

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\個人預算表1.xls;Extended Properties=Excel 8.0;Persist Security Info=False这是连接字符串的定义

Answer 10

首先需要新建一个Data Module，在它的窗体上边添加TADOConnectin（con），TADOTable（tblfiles，tblsheets，tblT10），TDataSource（ds）,TADODataSet(dsRead，dsDone)。
var
  DM:TDM
  xLSapp :Variant;con连接Access数据库，tbl的tablename属性是数据库中的表名 ，ds的Dataset属性为tbl,dst的connection属性值为con。
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  XlsApp := CreateOleObject('Excel.Application');
end;  //DM窗体要最先创建。在FORM1窗体中写代码实现读入sheet信息：
procedure TForm1.btn1Click(Sender: TObject);    //将所选择的excel文件的信息（sheet个数，名字等）读入数据库表中
var
  i: Integer;
begin
  if  not dlgopen1.execute then exit;
  XlsApp.WorkBooks.Open(dlgopen1.filename, ReadOnly := True);
  DM.tblFiles.Append;
  DM.tblFiles.FieldByName('filename').AsString :=dlgopen1.filename;
  DM.tblFiles.FieldByName('sheetscount').AsInteger := XlsApp.Sheets.Count;
  DM.tblFiles.Post;
  for i := 1 to XlsApp.Sheets.Count do
  begin
    DM.tblSheets.Append;
    DM.tblSheets.FieldByName('fid').AsInteger := DM.tblFiles.fieldByName('id').AsInteger;
    DM.tblSheets.FieldByName('sno').AsInteger := i;
    DM.tblSheets.FieldByName('sname').AsString := XlsApp.Sheets[i].Name;
    DM.tblSheets.Post;
  end;
  XlsApp.ActiveWorkBook.Close(SaveChanges := False);
  Application.ProcessMessages;
end;在FORM2窗体中写代码实现读入各个sheet信息：tblT1procedure TForm2.btn1Click(Sender: TObject); //读出表一
var
  i, c: Integer;
begin
  dm.tblT10.active := false;
  dm.tblT10.TableName := 'T1';
  dm.tblT10.Active := true;  dm.dsdone.active := false;
  dm.dsdone.CommandText := 'SELECT sheets.id,sheets.snn,sheets.done FROM Files RIGHT JOIN Sheets ON Files.id = Sheets.fid';
  dm.dsdone.active := true;  DM.dsRead.Active := False;
  DM.dsRead.CommandText :=
    'SELECT Sheets.fid,Sheets.id, Sheets.sname, Sheets.sno, Files.filename, Sheets.done FROM Files RIGHT JOIN Sheets ON Files.id = Sheets.fid ';
  DM.dsRead.Active := True;
  c := 0;
  while not DM.dsRead.Eof do
  begin
    try
      begin
        DM.tblT10.Append;
        DM.tblT10.FieldByName('fid').AsInteger :=
          DM.dsRead.FieldByName('id').AsInteger;
        XlsApp.WorkBooks.Open(dm.dsRead.FieldByName('filename').AsString);
        Inc(c);
        pbFileCount.Position := c * 100 div 729;  //pbFileCount--->TProgressBar
        lblFileName.Caption := dm.dsRead.FieldByName('filename').AsString;
        lblProgress.Caption := IntToStr(c) + '/729';
        Application.ProcessMessages;///////注意：B2,D2等是自己根据excel表的格式在access数据库中新建的表的字段名，
        XlsApp.WorkSheets[dm.dsRead.fieldbyname('sno').asInteger].Activate;        DM.tblT10.FieldByName('B2').AsString := XlsApp.ActiveSheet.Cells[2, 2].Value;
        DM.tblT10.FieldByName('D2').AsString := XlsApp.ActiveSheet.Cells[2, 4].Value;        DM.tblT10.FieldByName('B3').AsString := XlsApp.ActiveSheet.Cells[3, 2].Value;        DM.tblT10.FieldByName('F3').AsString := XlsApp.ActiveSheet.Cells[3, 6].Value;        DM.tblT10.FieldByName('B4').AsString := XlsApp.ActiveSheet.Cells[4, 2].Value;        DM.tblT10.FieldByName('F4').AsString := XlsApp.ActiveSheet.Cells[4, 6].Value;        for i := 5 to 15 do
        begin
      //    XlsApp.WorkSheets[dm.dsRead.fieldbyname('sno').asInteger].Activate;
          DM.tblT10.FieldByName('B' + IntToStr(i)).AsString := XlsApp.ActiveSheet.Cells[i, 2].Value;
        end;
     //    XlsApp.WorkSheets[dm.dsRead.fieldbyname('sno').asInteger].Activate;
        DM.tblT10.FieldByName('A16').AsString := XlsApp.ActiveSheet.Cells[16, 1].Value;        dm.dsDone.Edit;
        dm.dsDone.fieldbyname('done').asInteger := 1;
        dm.dsDone.Post;
      end
    finally
      DM.tblT10.Post;
      XlsApp.ActiveWorkBook.Close(SaveChanges := False);
    end;
    DM.dsRead.Next;
    DM.dsdone.Next;
  end;
  lblFileName.Caption := '读取成功完成！';
end; //应用时根据情况改写相关代码代码就可以了。
不知说的清楚不清楚，不懂再说。

Answer 11

哈哈，这个我熟。
选中excel中的所有记录，CTRL+C,
在acess中建一个和excel中字段一样的表，顺序也一样。然后单击右键，选“链接表”，打开表后，CTRL+V就ok了。
只不过是体力活，导一两个还可以，多了就不如写程序了。

Answer 12

从excel里面把数据读出来就行了，这里帮你贴篇文章很方便的。 
　　摘 要：Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换，讨论了报表制作工程中的一些细节性问题。　　关键字：Delphi，Excel，报表　　1 引言　　数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用。因此，数据报表已经成为管理信息系统中重要的一项功能，并且，由于数据的多样性和统计信息的增加，数据报表的系统实现变得越来越复杂。　　Delphi是一个高效的可视化数据库管理信息系统开发工具，.但是Delphi开发环境中提供的报表控件在制作复杂报表时显得不够理想，不管是以前版本提供的Quick Report控件组，还是Delphi 7提供的Rave控件组，都不能让用户对生成的报表进行改动，且程序控制很难实现。Excel作为现代办公常用的电子表格制作工具，以它的易操作性和实用性，得到了各行业办公人员的青睐。本文根据实际应用实践，介绍利用Delphi编程控制Excel生成报表的各种方法。　　2 Delphi控制Excel的方法　　2.1 创建Excel文件　　要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”（in-place activation）。
创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：function createExcel:variant;
var
　v:variant;
　sheet:variant;
begin
　v:=createoleobject('Excel.Application');//创建OLE对象
　v.visible:=true;
　v.workbooks.add(-4167); //添加工作表
　v.workbooks[1].sheets[1].name:='test';
　sheet:=v.workbooks[1].sheets['test'];
　return v;
end;　　2.2 数据表格控制　　Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个文件模板，然后按照实际需要输出多页报表即可。　　（1）数据的导入（importData）procedure importData;
var
　I,j:integer;
　v:variant;
begin
　v:=createExcel; //创建Excel文件test
　for I:=0 to maxcolumn do
　　begin
　　　for j:=0 to maxrow do
　　　　v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据
　　　end;
　end;　　（2）单元格的合并、边框的控制（lineStylecontrol）　　单元格的合并，是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。procedure lineStylecontrol;
var
　v,sheet,range:variant;
begin
　v:=createExecl;
　sheet:= v.workbooks[1].sheets[1];
　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格
　range.select;
　range.merge; //合并单元格
　range.borders.linestyle:=xlcontinuous; //置边框线可见
　range.font.size:=9; //改变表格内文本字体大小
end;　　（3）表格的复制与粘贴（copyandPaste）procedure copyandPaste;
var
　v,sheet,range:variant;
begin
　v:=createExecl;
　sheet:= v.workbooks[1].sheets[1];
　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];
　range.select; //选定要复制的表格
　range.copy; //复制选定的表格
　sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
　sheet.paste； //粘贴表格
end;　　2.3 文件的保存　　文件保存是在创建文件的基础上进行的，过程saveFile说明了文件保存过程中应该注意的问题：procedure saveFile;
var
　sheet,v:variant;
begin
　v:=createExcel;
　if savedialog.execute then
　begin
　　v.workbooks[1].saveas(savedialog.FileName);//保存文件
　　v.workbooks[1].close; //关闭工作表
　　v.quit; //关闭Excel
　　v := unassigned;
　end;
end;　　3 报表制作应注意的问题　　（1）报表格式的选择　　报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下，应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好，所以只要在程序中控制模板的复制与粘贴，然后编程实现数据输入指定位置即可。而对于报表格式多变的情况，由于数据的不同，需要合并单元格或者控制边框，可以直接在程序中自动控制报表的生成。　　（2）打印　　对于Excel报表的打印，最好不要在程序中进行控制，因为报表往往需要签字或者进行审查，有许多报表都包含平面图或示意图，为了有效的控制打印质量，最好通过程序控制输出或显示Excel文件，以便修改；另一个重要的原因是Excel具有强大的排版功能，而这正是选择Excel导出报表的重要原因。　　（3）报表时间和表头　　报表时间要有用户可以控制的输出。表头的制作要在事先做好格式，控制输出时，只改动那些诸如上报单位、下达单位、负责人等数据，这样既保证了系统的效率，又不失其实用性。　　4 结论　　用Delphi控制Excel来完成数据库管理信息系统的数据报表功能，是Delphi制作复杂报表的最佳选择，因为Delphi不但能控制数据的导出与导入，而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件。