掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExcelのデータをDelphiで読み込むには (ID:4442)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。 Office操作は興味がありますので、機会あるごとに実験しています。 一応、下記でいけました。ビギナーにつき、正確な事はわかりませんが、 .Activate とういのがダメな原因のようです。 ・usesにComObjを追加、Memo1を追加しています。 var ExcelApp: Olevariant; ExcelBook: Olevariant; ExcelSheet: Olevariant; iRow: Integer; iCol: Integer; Ctmp: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelBook := ExcelApp.WorkBooks.Open('c:\tmp\test.xls', False); ExcelSheet := ExcelBook.WorkSheets['テスト用']; //.Activate; <=ココです。 Memo1.Clear; for iRow := 1 to 5 do begin Ctmp := ''; for iCol := 1 to 5 do begin Ctmp := ExcelSheet.Cells[iRow, iCol].value; Memo1.Lines.Add(InttoStr(Ctmp)); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.