掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TComboBoxを使いエクセルのデータを読み込むには？ (ID：4946)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OLEでできます。 USESにComObjを追加します。 これは(1)の例です。 (2)は意味が判りません。 procedure TForm1.Button1Click(Sender: TObject); var Excel: Variant; WorkBook: Variant; WorkSheet: Variant; VA: Variant; i : Integer; S : String; begin Excel := CreateOleObject('Excel.Application'); Excel.Visible := True; WorkBook := Excel.WorkBooks.Open(ExtractFilePath(Application.ExeName) + 'book1.xls'); WorkSheet := Excel.ActiveWorkBook.ActiveSheet; ComboBox1.Items.Clear; i := 4; VA := WorkSheet.Cells[i,1].value; S := trim(VarToStr(VA)); while (S <> '') do begin ComboBox1.Items.Add(S); inc(i); VA := WorkSheet.Cells[i,1].value; S := trim(VarToStr(VA)); end; ComboBox1.ItemIndex := -1; Excel.Quit; Excel := Unassigned; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.