如何动态的获得xls文件，并将该文件中的某个sheet中的数据用dbgrid显示出来？？

Question

如题

Answer 1

动态建立一个odbc连接，用adoquery连接

Answer 2

adoquery指向SQLSERVER
select * into tablename from [sheetname$] in "d:\temp\123.xls" "excel 8.0;"

Answer 3

可以加入excel控件来执行，就是速度稍微慢一点，谨供参考begin
 try
  begin
   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add('c:\Program       files\aa.xls',0));
   ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
     
   for i:=1 to 【excel行数】 do
       begin
         query1.append;
          for j:=1 to 【excel列数】 do
              begin
                 Query1.Fields[j-1].AsVariant：＝ExcelWorksheet1.Cells.Item[3+i,j]
              end;
          query1.post;
       end;
  end
 except end;
   Query1.close;

Answer 4

一个什么都没有的例子,功能自己完善http://www.ten-design.net/delphi/excel.rar

Answer 5

首先DBGrid控件连接好数据源ADOConnection1.ConnectionString := 'DRIVER={Microsoft EXCEL Driver (*.xls)};DBQ='+Excel文件的路径+';Extended Properties=EXCEL 8.0';
ADOConnection1.Open;
ADOQuery1.SQL.Add('select * from [Sheet1$]');
ADOQuery1.Open;Email:[email protected]