ADO读取Excel Sheet

最新推荐文章于 2021-04-11 08:49:46 发布

weixin_30896511

最新推荐文章于 2021-04-11 08:49:46 发布

阅读量181

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/solokey/archive/2011/07/21/2113327.html

版权

sheet的第一行被ADO读为表名.其他操作和其他数据库类似.

1     ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
2                'Data Source=' + TargetXlsFileName + ';Mode=Share Deny None;Extended Properties="Excel 8.0;IMEX=1";' +
3                'Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
4     ADOConnection.Open;
5     ADOQuery.SQL.Text := 'SELECT * FROM [' + TabSheetName + '$]';
6     ADOQuery.Open;