excelden comboboxa veri alma

[ekin]

excel tablosundan comboboxa verileri nasıl alabilirim.

[ekin]

cevabını buldum

procedure TForm1.Button1Click(Sender: TObject);
var
book:variant;
excel,sheet:variant;
satir, sutun:integer;
str:string;
begin
excel := createOleObject('Excel.application');
book:= Excel.WorkBooks.Open('d:\delphibook\ekinstok.xls');
try
Screen.Cursor := crHourGlass;
sheet := book.worksheets[4];
for satir:=2 to 4 do
begin
str := sheet.cells[satir, 1];
combobox1.Items.Add(str);
end;
Excel.quit;
excel:=Unassigned;
finally
Screen.Cursor := crDefault;
end;
end;

iki sorum olacak

1. sayfa sıranosu yerine sayfa ismini yazabilirmiyim

2. Screen.Cursor := crDefault;
bu satır ne işe yarıyor

[aslangeri]

s.a.
1. sorunuzu tam anlayamadım.
2. sorunuz farenin simgesini normal hale getiriyor.
kolay gelsin.

[ekin]

sheet := book.worksheets[4];

burada 4.sıradaki sheeti seçiyoruz. bu sheetin ismini kullanmamız mümkün mü.

bu sefer tam tersini yapmak istiyorum

combobox içindeki bilgileri excelde bir sayfaya yazmam mümkün mü

[ekin]

bir de şifreki olan bir excel sayfasını şifreyi girmeden açabilirmiyim.

[sevturk]

s.a. arkadaşlar;

ekin arkadaşım verdiğin kodu denedim yalnız

Kod: Tümünü seç

excel:= createOleObject('Excel.application');

bu kısıma hata veriyo ve Undeclared identifier:'createOleObject' hatası veriyo.. formuma ExcelOLEObject1 nesnesi veya diğer excele ait nesneler ekledim ama sorunu gideremedim.. yardımcı olursan sevinirim.. ilgin için şimdeden teşekkür ederim.. hayırlı çalışmalar..

[ulu coder]

Uses'a ComObj eklemeyi unutmuşsundur belki...