从excel导入数据（Import data from Excel）.docVIP

从excel导入数据（Import data from Excel） / / 導入exceltosql Var. SQL: string; Begin Adoquery1.close; / / adoquery1? 接sqlserver的connection Adoquery1.sql.clear; / / 清空sql SQL: = insert into tbl1 (ID, name, sex, pH, adat) select id, name, sex, pH, adat from openrowset (microsoft.jet.oledb.4.0, excel 5.0; HDR = yes; database = D: \ d.xls, Sheet1 $); / / $要求的excel表格 Sheet1 Adoquery1.sql.add (SQL); / /? 行sql Adoquery1.execsql; End; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 不要用excelapplication来导入数据, 这样当然慢了, 直接用ado来导入, ado本身就支持execl的.以下是ado组件的connectionstring的连接字符串 Provider = microsoft.jet.oledb.4.0; user id = admin; data source = D: \ \ \ \ 2001年11月在职职工98封定工资.xls 我的文档 人事资料 在职; mode = share deny none; extended properties = excel 8.0; 把其中的 data source = D: \ \ \ \ 2001年11月在职职工98封定工资.xls 我的文档 人事资料 在职 改成你的execl文件, 就可以直接用adotable或adoquery来打开处理了.这样的效率将是你原来方法的n倍! Top －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Delphi与excel的亲密接触 作者: 王安鹏 发布时间: 2002 / 04 / 22 文章摘要: Delphi作为一个出色的rad, 强大的数据库功能是其最重要的特色之一, 但是操纵困难的quickreport控件常常不能满足数据库报表的需要.如果你的报表非常复杂, 或者要求灵活地改变格式, 那么使用excel作为报表服务器是一个不错的选择.delphi从版本5开始提供的excel组件极大地简化了ole自动化技术的应用. Unit Unit1; The interface Use Windows, messages, SysUtils, variants, classes, graphics, controls, forms, Dialogs, stdctrls; Type TForm1 = class (tform) Button1: tbutton; Procedure button1click (sender: tobject); Private Private declarations} { Public {public declarations} End; Var. Form1: TForm1; Implementation Use comobj; {$R * DFM} Procedure tform1.button1click (sender: tobject); Var. I: integer; Excel _ handle: olevariant; Begin Try excel_handle：= getactiveoleobject（excel。应用”）； 除了 尝试 excel_handle：= createoleobject（excel。应用”）； 除了 出口; 结束； 结束； / /被（IntToStr（excel_handle。表。计数））； 我：= 1 excel_handle.sheets.count做 被（excel_handle。表[我]的名字）； 结束； 结束。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 正文： Delphi与Excel的亲密接触 Delphi作为一个出色的rad，强大的数据库功能是其最重要的特色之一，但是操纵困难的QuickReport控件常常不能满足数据库报表的需要。如果你的报表非常复杂，或者要求灵活地改变格式，那么使用Excel作为报表服务器是一个不错的选择。Delphi从版本5开始提供的Excel组件极大地