Delphi Personal で DAO

Ｅｘｃｅｌファイルを読む

procedure TForm1.Button23Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    rs:Variant;//Recordset

const

    dbOpenTable:Integer = 1;

begin

    //表示用コントロールをクリア

    ListBox1.Items.Clear;

    ListBox2.Items.Clear;
    de := CreateOleObject('DAO.DBEngine.36');
    //Edit3 に ファイル名を入力

    db := de.OpenDatabase(Edit3.Text, false, false, 'Excel 8.0');
    //Edit4 に シート名を入力

    rs := db.OpenRecordset(Edit4.Text + '$', dbOpenTable);
    while not rs.EOF do

    begin

        //表示用コントロールに項目内容をセット

        ListBox1.Items.Add(rs.Fields[0].Value);

        ListBox2.Items.Add(rs.Fields[1].Value);
        rs.MoveNext;

    end;
    rs.Close;

    db.Close;

end;