Excel Sheet Alanı almak _?

[KOROGLUCW]

ADODataSet1.CommandText:='select * from [Sheet1$]';

şöyle bir kod ile aslında olumuyor;

ADODataSet1.CommandText:='select * from [TABLOSIMI]';
TABLOISMI : buraya sheet alanlarını getirmek istiyorum excel sayfa isimlerini yani?
Ne gibi bir şey yapmam gerekiyor ki?

VeSSeLaM.

[Lord_Ares]

exceldeki sayfaların isimlerin almak isityorsan

Kod: Tümünü seç

procedure al;
var
uygulama:variant;
sayfasayisi,x :integer;
sayfaadi:string;
begin
uygulama:=CreateOleObject('excel.application');
uygulama.Visible:=true;
uygulama.workbooks.open[OpenDialog1.FileName];
sayfasayisi:=uygulama.WorkSheets.count;// sayfa sayısını al
for x:=1 to sayfasayisi do begin
sayfaadi:=uygulama.worksheets[x].Name;
end;
end;
end;

iş yerinde olduğum için kodu deneme şansım olmadı. kısaca şöylede yapabilirsin

sayfaadi:=uygulama.worksheets[1].Name; /// birinci sayfa adını al

veya ActiveWorkbook.worksheets.name gibi kullanarak o an aktif olan çalışma sayfasının adını alabilirsin.

[Lord_Ares]

bu arada excel dosyalarını farklı kaydet diyerek DBF formatına çevirip, veritabanınız olarak kolayca kullanabilirsiniz..

[KOROGLUCW]

var (bloğunda ise)
SheetName:TStringList;


begin
SheetName := TStringList.Create;
ADOConnection2.GetTableNames(SheetName,False);
ADODataSet1.CommandText:='select * from ' + SheetName.Strings[0];
end;

şöyle bir şeyle çözüm yolu ürettim ve oldu.
tekrardan teşekkür ederim hocam.