掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excelのシート名を取得 (ID:148959)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
usesにExcelXpを追加して、 procedure TForm1.Button2Click(Sender: TObject); var Excel: OleVariant; Book: OleVariant; ws: Variant; i: Integer; SampleFile: String; begin System.Variants.DispatchUnsignedAsSigned := True; SampleFile := ExtractFilePath(Application.ExeName) + 'test.xlsx'; try Excel := CreateOleObject( 'Excel.Application' ); Excel.Application.WindowState := xlMinimized; Excel.Application.Visible := True; Book := Excel.WorkBooks.Open(FileName:=SampleFile, ReadOnly:=True); try ListBox1.Clear; for i := 1 to Book.Worksheets.Count do begin ws := Book.Worksheets[i]; ListBox1.Items.Add(ws.Name); end; Book.Close(SaveChanges:=False); finally Excel.Quit; end; except on E: Exception do MessageDlg(E.Message, mtError, [mbOk], E.HelpContext); end; end; みたいな感じは、いかがですか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.