excelden gride bilgi aktarma

[nisan]

exceldeki kayıtlarımızı formumuzdaki gride bir butona basarak nasıl aktarabiliriz?yardımcı olmanız dileğiyle

[nitro]

forumda aramayı kullanç. burda herşey var.
al sana bi arama sonucu:
işine yarar
viewtopic.php?t=1060&highlight=excel

[nitro]

uses kısmına ComObj yazmayı unutma

Kod: Tümünü seç

procedure Texceldenveri.SpeedButton1Click(Sender: TObject);
var 
    book:variant;
    excel,sheet:variant;
    satir, sutun:integer;
    str:string;
begin

    excel := createOleObject('Excel.application');
    OpenDialog1.Filter := 'Excel Dosyaları (*.xls)|*.xls';
    if opendialog1.Execute then
    begin
        book:= Excel.WorkBooks.Open(OpenDialog1.FileName);
        try
            Screen.Cursor := crHourGlass;
            sheet := book.worksheets[1];
            for satir:=1 to 1000 do
            begin
                str := sheet.cells[satir, 1];
                if (str <> '') then
                begin
                    Update;
                    stringgrid1.Row:=stringgrid1.Row+1;
                    for sutun:=1 to 11 do
                        stringgrid1.Cells[sutun-1,stringgrid1.row] :=sheet.cells[satir, sutun];

                end;
            end;
            Excel.quit;
            excel:=Unassigned;
        finally
            Screen.Cursor := crDefault;
        end;
    end;

aha bak bu kod excelden stringgride alıyo. stringgride alınca ondan sonra istediğini yap.

[ekin]

stringgrid nesnesi hangi sekmede acaba

[ulu coder]

Standard'ın hemen yanında, Additional'da...
Soldan dördüncü.
Bir tablo var ve altında abc yazıyor.

[fatihbarut]

Allah razı olsun be abicim sayende büyük bir dertten kurtuldum inşallah