再贴一次：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=575846
设置属性ConnetionString
选择 Microsoft Jet 4.0 OLE DB provider
Select or enter a datasorce name -> 选择你要打开Excel文件
User name默认是Admin 密码默认为空,可以不用理会
Extended properties 设为：Excel 8.0
sql语句 select * from [yourtablename]
(注意要有[])
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
来自：Pipi., 时间：2002-7-14 19:32:00, ID：1202212
怪哉，我说useServer那是以前这种方法访问excel的时候要useServer才能修改，犯了经验主义的错误
现在看起来paradox不是这个原因，paradox更简单，因为我没改这个属性，用缺省的，直接就可以写入表了嘛
可删可增可改。我用的连接是：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Borland/Borland Shared/Data;Mode=Share Deny None;Extended Properties=paradox 7.x
表是：biolife
这个是delphi带来的例子数据库，你的机器也有的，试试看
另外我的是win2000带来的ado2.5，delphi5.0
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
我得解决方案：
用ADOTable控件打开Excel 文件
1)设置属性ConnetionString
选择 Microsoft Jet 4.0 OLE DB provider
Select or enter a datasorce name -> 选择你要打开Excel文件
User name默认是Admin 密码默认为空,可以不用理会
Extended properties 设为：Excel 8.0 (Excel 2000 好象不可以写成Excel 9.0)就可以读取Excel 97以下得版本的Excel文件
2)属性TableDirect 设为True (否则会出现“FROM 子句的语法错误。”的错误提示 )
3)这时可以从Table属性里面选择table了，所有的文件都是加了$符号的，程序中动态显示的话
可以参考我这个例子：
procedure TForm1.Button1Click(Sender: TObject);
var ProviderStr:string;
Str1,Str2,Str3:String;
SQLstr:string;
i:integer;
begin
ADOTable.Active:=False;
ProviderStr:=ADOTable.ConnectionString;
Str3:=StrPos(PChar(ProviderStr), PChar(';Mode=ReadWrite|Share Deny None;Extended Properties=Excel 8.0'));
Str1:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;';
Str2:='Data Source='+FileList1.FileName;
ADOTable.ConnectionString:=Str1+str2+str3;
for i:=Length(FileList.FileName) downto 1 do
if Copy(FileList.FileName,i,1)='/' then
break;
SQLStr:=Copy(FileList.FileName,i+1,Length(FileList.FileName)-i-4);
SQLStr:=SQLStr+'$';
ADOTable.TableName:= SQLStr;
// SHOWMESSAGE(ADOTable.ConnectionString);
// Showmessage(SQLStr);
try
QdbfOrd.Active:=True;
except
{Error message};
end;
end;
如果用ADOQuery和ADODataSet的话，我就不知到如何设置，老是出现“FROM 子句的语法错误。”的错误提示
链接Excel 2000 的时候Extended Properties=Excel 8.0是正确的。
在MSDN中说明：
Excel 97 对应 ‘Excel 97’
Excel 2000 对应 ‘Excel 8.0’
我试过2000的可以相连。
在ADOQuery中 select * From [Sheet1$]就可以将对应的表的内容读出
记住一定要在表名两边加[]在表名后面加$，不然就报FROM 子句的语法错误
在ADOTable中选择表名时也应手工将这两个符号加上
