紧急求救：如何在delphi6中直接调用EXCEL文件中的内容？急急急

[dashjs]

如何在delphi6执行下列语句：e:\book1.xls为Excel文件
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="e:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 8.0')...[sheet1$]
1.在adoquery中认为字串中:为参数，如何设置.
2.用存储进程（sql2000）：
CREATE PROCEDURE ttt (@str nvarchar(255))
AS
SET ANSI_WARNINGS ON
SET ANSI_NULLS ON

execute sp_executesql @str
return
GO
---------------------------------------------------------------
execute ttt @str='SELECT *
FROM OpenDataSource( ''Microsoft.Jet.OLEDB.4.0'',
''Data Source="e:\book1.xls";User ID=Admin;Password=;
Extended properties=Excel 8.0'')...[sheet1$]'
系统报错：异类查询要求为连接设置 ANSI_NULLS 和 ANSI_WARNINGS 选项。这将确保一致的查询语义。请启用这些选项，然后重新发出查询。
请各位高手帮忙，多谢！！！

[yinzhiw]

我想问一下楼上的怎么我用你的方法的时候出现Sheet1$不是一个有效
名称,请确认他不包含无效字符串或标点呢?

[DebugXP]

以前碰到这个问题，用动态查询搞定。
一个例子：
CREATE PROCEDURE [dbo].[名] @mdbname varchar(40) AS
exec('insert into 表
SELECT *
FROM OPENROWSET(''Microsoft.Jet.OLEDB.4.0'',
'''+@mdbname+''';''admin'';'''', Orders)')

[yatoo]

adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\a.xls;Extended Properties=excel 8.0;Persist Security Info=False';