我把EXCEL导入到ACESS中时,会自动打开office2000,还有瑞星的查毒.烦..

bells2000 2005-03-23 07:16:40

还有发觉好慢,,如果我在后台运行,office2000没有显示出来,瑞星还是有的,速度同样慢.
请问有没有什么办法不用打开这些啊,,我代码如下;

procedure TForm1.EX1Click(Sender: TObject);
var filename:string;

begin
fileName:='';
opendialog1.FileName:='';
opendialog1.Execute;
if opendialog1.FileName='' then Exit;
filename:=opendialog1.FileName;

Excelapp.Workbooks.Open (filename,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,1);

adoConnection1.Execute('delete from table1');
adoConnection1.Execute('INSERT INTO table1(姓名,考勤号码,日期, 对应时段,上班时间,下班时间,签到时间,签退时间)' + 'SELECT 姓名,考勤号码,日期,对应时段, 上班时间,下班时间,签到时间,签退时间' +
' FROM [excel 8.0;database=' + fileName + '].['+GetName(FileName)+'$]');

Excelapp.Workbooks.Close(1);
ExcelApp.Quit;
with adoQuery1 do
begin
close();
sql.clear;
sql.Text:='select 姓名,考勤号码, 对应时段,上班时间,下班时间,签到时间,签退时间,每天工作时间 from table1';
open;
end;

end;

...全文

114 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

bells2000 2005-03-28

打赏
举报

谢了大家我现在给分, 我再开个贴大家再讨论吧,

dicke 2005-03-27

打赏
举报

adoConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\Delphi\Demo001\Book1.xls;Mode=Share Deny None;Extended Properties=Excel 8.0';
adoConnection1.Open;
ＡＤＯＱｕｅｒｙ１.Connection:= adoConnection1;
ＡＤＯＱｕｅｒｙ１.Close;
ＡＤＯＱｕｅｒｙ１.SQL.Clear;
ＡＤＯＱｕｅｒｙ１.SQL.Add('select * From [Sheet1$]');
ＡＤＯＱｕｅｒｙ１.Open;

这是我用Ｄｅｌｐｈｉ刚刚测试通过了，你再试试吧

caiso 2005-03-27

打赏
举报

帮顶一下

dicke 2005-03-26

打赏
举报

adoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";'+'Data Source='+Trim(Edit2.Text)+';Mode=Read;Extended Properties=Excel 8.0;Persist Security Info=True';
adoConnection1.Connected:=true;
看看你的ＡＤＯＣｏｎｎｅｃｔｉｏｎ１是否这样连接的
其中：edit2.text为你的Ｅｘｃｅｌ文件所在的路径

dicke 2005-03-26

打赏
举报

４）用ＡＤＯＱｕｅｒｙ１连接到adoConnection1，然后在ＡＤＯＱｕｅｒｙ１中写入select * From [$Sheet]。
我这没有Ｄｅｌｐｈｉ，这样你再试一次吧。
你的Ｅｘｃｅｌ文件指定位置了吗？存在吗？

caiso 2005-03-24

打赏
举报

顶一下

dicke 2005-03-24

打赏
举报

不好意思，上面第一步的第三小步应该修改的是Extended properties=Excel ８.0

dicke 2005-03-24

打赏
举报

此办法我也试过很慢，但你还有另一个选择呀
１、adoConnection1连接设置以下相关属性
　１）选择Microsoft.Jet.OLEDB.4.0
　２）在属性第二页找到你所要导入的Ｅｘｃｅｌ文件
　３）在属性最后一页修改里面的dbEncrypt为Ｅｘｃｅｌ 8.0
　４）用ＡＤＯＱｕｅｒｙ１连接到adoConnection1，然后在ＡＤＯＱｕｅｒｙ１中写入select * From [Sheet$]。
　注：[Sheet$]其中sheet为Ｅｘｃｅｌ中的分页名称
２、adoConnection2与ＡＤＯＱｕｅｒｙ２就安正常连接和打开数据库就ＯＫ了。
３、用循环把ＡＤＯＱｕｅｒｙ１中的数据存入数据中就可了（打开的ＡＤＯＱｕｅｒｙ２中）
此方法不用打开Ｏｆｆｉｃｅ，比上面方法快