我是看了碧血剑的贴，然后做测试的！但不能写出来。各位帮帮忙!(50分)

adocon.ConnectionString:='microsoft.Jet.OLDB.4.0;Data Source=E:/tree; Extended Properties="Excel 8.0,HDR=YES;";Persist Security Info=false';
adocon.LoginPrompt:=false;
adocon.Connected:=true;
adocon.Execute('select * into bb.xls from tb1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=summer;DataBase=OA;]');
我上面的代码总是提示：“[microsoft][odbc 驱动管理器]未发现数据源名称
并且未指定默认驱动程序”

设置一个odbc试试看

直接在ODBC配置一個看看。

Data Source=E:/tree ??????

"Data Source=E:/tree "
楼上的上面有什么不妥吗？
请谈谈好吧

Provider=MSDASQL.1;Persist Security Info=False;Data Source=DDD;Initial Catalog=C:/DDD

谢谢!楼上的.我在导入到文本文件的时候,是可以的.
难道导入到excel就不行了吗? 不明白

使用 Excel 文件名而不是目录名

adocon.ConnectionString:='Provider=microsoft.Jet.OLEDB.4.0;Data Source=E:/tree; Extended Properties="Excel 8.0,HDR=YES;";Persist Security Info=false';
adocon.LoginPrompt:=false;
adocon.Connected:=true;
adocon.Execute('select * into bb.xls from tb1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=summer;DataBase=OA;]');
我修改成上面之后，又提示“找不到可安装的ISAM"是什么意思？

试试这个
adocon.ConnectionString:='Provider=microsoft.Jet.OLEDB.4.0;Data Source=E:/tree; Extended Properties="Excel 8.0";Persist Security Info=false';

adocon.ConnectionString:='Provider=microsoft.Jet.OLEDB.4.0;Data Source=E:/tree/zz.xls; Extended Properties="Excel 8.0;HDR=YES;";Persist Security Info=false';
adocon.LoginPrompt:=false;
adocon.Connected:=true;
我再改为这样，执行到这里adocon.Connected:=true;在E:/tree目录下已经
生成zz.xls 了！可是不能执行这句adocon.Execute('select * into cc.xls from tb1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=summer;DataBase=OA;]');
我的目的就是从SQL SERVER里面的某个表导出到Excel里面，怎么办？
to:迷糊，我试试看！

米糊:我试了,提示为"Microsoft Jet 数据库引擎打不开"E:/tree".它已经被别的
用户以独占方式打开,或没有查看数据的权限".目录确实是存在的,我在E:/tree/xx.xls
执行到这里adocon.Connected:=true;在E:/tree目录下已经生成xx.xls 了！可是不能执行这句adocon.Execute('select * into xx.xls from tb1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=summer;DataBase=OA;]');
提示XX.xls已经存在!迷茫

function TClientDM.Fun_ConnetAdoXLS(adAdoName: TADOConnection;asFldName: String): Boolean;
var
Connect_Str:String;
Temp_Result:Boolean;
begin
Temp_Result:=False;
adAdoName.Connected:=False;

try
Connect_Str:='Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite;Extended Properties=Excel 8.0;';
Connect_Str:=Connect_Str+'Data Source='+asFldName+';';
Connect_Str:=Connect_Str+'Persist Security Info=False';
adAdoName.ConnectionString:='';
adAdoName.ConnectionString:=Connect_Str;
adAdoName.LoginPrompt:=False;
adAdoName.Connected:=True;
if adAdoName.Connected=True then Temp_Result:=True;
except
Temp_Result:=False;
end;
Result:=Temp_Result;
end;


function TClientDM.Fun_ConnetAdoDBF(adAdoName: TADOConnection;asFldName: String): Boolean;
var
Connect_Str:String;
Temp_Result:Boolean;
begin
Temp_Result:=False;
adAdoName.Connected:=False;

try
Connect_Str:='Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite;Extended Properties=dBase 5.0;';
Connect_Str:=Connect_Str+'Data Source='+asFldName+';';
Connect_Str:=Connect_Str+'Persist Security Info=False';
adAdoName.ConnectionString:='';
adAdoName.ConnectionString:=Connect_Str;
adAdoName.LoginPrompt:=False;
adAdoName.Connected:=True;
if adAdoName.Connected=True then Temp_Result:=True;
except
Temp_Result:=False;
end;
Result:=Temp_Result;
end;


function TClientDM.Fun_ConnetAdoTXT(adAdoName: TADOConnection;asFldName: String): Boolean;
var
Connect_Str:String;
Temp_Result:Boolean;
begin
Temp_Result:=False;
adAdoName.Connected:=False;

try
Connect_Str:='Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite;Extended Properties=TEXT;';
Connect_Str:=Connect_Str+'Data Source='+asFldName+';';
Connect_Str:=Connect_Str+'Persist Security Info=False';
adAdoName.ConnectionString:='';
adAdoName.ConnectionString:=Connect_Str;
adAdoName.LoginPrompt:=False;
adAdoName.Connected:=True;
if adAdoName.Connected=True then Temp_Result:=True;
except
Temp_Result:=False;
end;
Result:=Temp_Result;
end;



procedure TFrmMain.Button5Click(Sender: TObject);
var
StrSql:string;
FilePath,FileName,FileNameE:string;
begin
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel files (*.xls)|*.xls';

if RadioButton2.Checked then
begin
SaveDialog1.DefaultExt:='dbf';
SaveDialog1.Filter:='DBF files (*.dbf)|*.dbf';
end;

if RadioButton3.Checked then
begin
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='TXT files (*.txt)|*.txt';
end;

if SaveDialog1.Execute then
begin
FilePath:=trim(ExtractFilePath(SaveDialog1.FileName));
FileName:=trim(ExtractFileName(SaveDialog1.FileName));
FileNameE:=Trim(copy(FileName,1,pos('.',FileName)-1));

if RadioButton1.Checked then
begin
DM.Fun_ConnetAdoExcel(DM.ConnADOConnection,SaveDialog1.FileName);
FileName:=FileNameE;
end;

if RadioButton2.Checked then
begin
DM.Fun_ConnetAdoDBF(DM.ConnADOConnection,FilePath);
FileName:=FileNameE;
end;

if RadioButton3.Checked then
begin
DM.Fun_ConnetAdoTXT(DM.ConnADOConnection,FilePath);
end;

strSql:='SELECT * INTO ['+FileName+'] FROM exptoarea IN [ODBC][ODBC;'+DM.Odbcstr+']';

try
Screen.Cursor:=crHourGlass;
try
DM.ConnADOConnection.Execute(strSql);
Messagebox(handle,'数据导出完成！','系统提示',MB_ICONINFORMATION);
except
Messagebox(handle,'数据导出失败！','系统提示',MB_ICONERROR);
exit;
end;
Finally
DM.ConnADOConnection.Close;
Screen.Cursor:=crDefault;
end;
end;
end;

多人接受答案了。