Excelの各シート名を得るには (ID:26210)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 開発環境(Windows + Delphi + Excelのバージョン)も何も書いてないのですが， 以下は， WindowsXP(SP2) + Delphi7 + Excel200で動作確認しています． リストボックスに現在のExceleのシード名を表示する例です． [Servers]タブのTExcelApplication 関係を使用しているものと仮定(間違いないでしょう) します． //リストボックスにシート名一覧を作成 ListBox1.Clear; for i:=1 to ExcelWorkBook1.Sheets.Count do begin ListBox1.Items.Add((ExcelWorkbook1.Sheets[i] as ExcelWorksheet).Name); end; あるいは，Sh : OleVariant; と定義しておいて ListBox1.Clear; for i:=1 to ExcelWorkBook1.Sheets.Count do begin Sh:=ExcelWorkbook1.Sheets[i]; ListBox1.Items.Add(Sh.Name); end;