作者：乔山办公网日期：
返回目录：excel表格制作
可以将excel中的一百个页签视为一个表，excel文件视为一个数据度库，使用ADO连接这个数据库，连接串中加入Extended Properties=Excel 8.0，假如excel中的页签名知是“测试”，在道delphi中用sql操作时，类似语句如下：select * from [测试$]，虽然可以回支持中文，不过不建议使用中文的页签名称。答
1.打开SQL Server Management Studio，按图中的路径进入导入数据e69da5e6ba90e79fa5e98193330界面。
2.导入的时候需要将EXCEL的文件准备好，不能打开。点击下一步。
3.数据源：选择“Microsoft Excel”除了EXCEL类型的数据，SQL还支持很多其它数据源类型。
4.选择需要导入的EXCEL文件。点击浏览，找到导入的文件确定。
5.再次确认文件路径没有问题，点击下一步。
6.默认为是使用的WINODWS身份验证，改为使用SQL身份验证。输入数据库密码，注意：数据库，这里看看是不是导入的数据库。也可以在这里临时改变，选择其它数据库。
7.选择导入数据EXCEL表内容范围，若有几个SHEET表，或一个SHEET表中有些数据不想导入，则可以编写查询指定的数据进行导入。点击下一步。
8.选择需要导入的SHEET表，比如在这里将SHEET表名改为price，则导入后生面的SQL数据库表为price$。点击进入下一步。
9.点击进入下一步。
10.在这里完整显示了导入的信息，执行内容，再次确认无误后，点击完成，开始执行。
11.可以看到任务执行的过程和进度。
12.执行成功：可以看看执行结果，已传输1754行，表示从EXCEL表中导入1754条数据，包括列名标题。这样就完成了，执行SQL查询语句：SELECT * FROM price$就可以查看已导入的数据内容。
可以使用sql的功能导入excel数据，用sql语句就能实现，delphi执行该sql语句就可以了
元接口部分引用 comobj 单元(uses )
procedure TForm1.Button1Click(Sender: TObject);
var excelx,excely : string;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook := ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定
//excel档路径
ExcelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
for i := 1 to excelrowcount + 1 do
begin
excelx := excelapp.Cells[i,1].Value;
excely := excelapp.Cells[i,2].Value;
if ((excelapp.Cells[i,1].Value = '') and (ExcelApp.Cells[i,2].Value = '')) then
//指定excel档的第 i 行 ,第 1,2(看情况而定)行如果为空就退出,这样的设定,最好是你的档案力这两行//对应数据库中不能为空的数据
exit
else
with query1 do
begin
close;
sql.clear;
sql.add(insert into test(name,address) values(:name,:address));
parambyname('name').asstring := excelx;//excel档的第一列插入到test表的 name栏位;
parambyname('address').asstring := excely;//excel档的第二7a686964616fe4b893e5b19e332列插入到test表的 address 栏位;
execsql;
end;
end;
finally
WorkBook.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
WorkBook := Unassigned;
end;
end;
上面的是导到sql 中的。oracle应该也差不多的吧。。