老话体 -> 需一从Excell转Access的通用程序

从Excell转Access的通用程序  要求全部代码,实现要求无第三方控件. 程序通过马上结贴.

解决方案 »

  1.   

    用两个TABLE对考
    EXCEL ADO连接方式如下Provider=Microsoft.Jet.OLEDB.4.0
    　　Data Source=MyExcelFile.xls
    　　Extended Properties=Excel 8.0
    　　Persist Security Info=False
    然后你再连ACESS
    直接写不就行了
      

  2.   

    用两个TABLE对考
    EXCEL ADO连接方式如下Provider=Microsoft.Jet.OLEDB.4.0
    　　Data Source=MyExcelFile.xls
    　　Extended Properties=Excel 8.0
    　　Persist Security Info=False
    然后你再连ACESS
    直接写不就行了
      

  3.   

    补充一下,通用!  关键词通用.  就是说不知道Excel的格式及目标Access库不存在!
      

  4.   

    还有一个疑问 "Microsoft.Jet.OLEDB.4.0" 如何连接 Excel 文件?
      

  5.   

    用「TADOConnection」控件連接「Access」
    ConnectionString的値:
    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...\AccessDB.mdb;Persist Security Info=Falseprocedure TForm1.Button1Click(Sender: TObject);
    begin
      ADOConnection1.Execute('SELECT * INTO newTable FROM [Sheet1$] IN "C:\...\myFile.xls" "Excel 8.0;" ');
    end;注意：在「Access」要用一個不存在的新表名
    　　　在「Excel」表名是: Sheet名+'$'