Fórum excel e ADO #307056

procedure TDataModule1.ADOConnection1BeforeConnect(Sender: TObject);
begin
  ADOConnection1.ConnectionString :=
    ´Provider=Microsoft.Jet.OLEDB.4.0;´ +
    ´Data Source=C:\Pasta1.xls;´ +
    ´Extended Properties=Excel 8.0;´ +
    ´Persist Security Info=False´;
end;

procedure TDataModule1.FormCreate(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText := ´select coluna1, coluna2 from [Plan1$]´;
  ADODataSet1.Open;
end;

procedure TDataModule1.FormDestroy(Sender: TObject);
begin
  ADODataSet1.Close;
  ADOConnection1.Connected := False;
end;