excelファイルについて (ID:149360)

名前

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

本文

お世話になります。
【環境】
Windoows 10 pro
Delphi 10.1 Berlin Enterprise update 2

以上の環境で
以下のようなコーディングでexcelのシート名をListViewに読み込むプログラムを作りました。
開発環境にはMicrosoftのExcelがインストールされているのですが
運用環境にはMicrosoftのExcelがありません。
動作させたところ「クラス文字列が無効です。ProgID: "Excel.Application"」という
エラーが発生しました。
インストールされていないと動作しないのでしょうか。
何か回避方法はありますでしょうか。
*********************************************************************
procedure TfrmTest.Button2Click(Sender: TObject);
var
  item2      : TListItem;
  SampleFile : String;
  excel      : OleVariant;
  book       : OleVariant;
  i          : Integer;
  ws         : Variant;
begin
  if OpenDialog1.Execute then
    convF.Text := OpenDialog1.FileName;

//ListView2にExcelファイルのシート名をリストアップ(Start)
  System.Variants.DispatchUnsignedAsSigned := True;

SampleFile := convF.Text;
  try
    excel := CreateOleObject( 'Excel.Application' );
    excel.Application.WindowState := xlMinimized;
    excel.Application.Visible := True;
    book := Excel.WorkBooks.Open(FileName:=SampleFile, ReadOnly:=True);
    try

ListView2.Clear;

for i := 1 to book.Worksheets.Count do
      begin
        ws := book.Worksheets[i];
        item2 := ListView2.Items.Add;
        item2.Caption := ws.Name;
      end;

book.Close(SaveChanges:=False);
    finally
      excel.Quit;
    end;
  except
    on E: Exception do
      MessageDlg(E.Message, mtError, [mbOk], E.HelpContext);
  end;
  //ListView2にExcelファイルのシート名をリストアップ(End)
*********************************************************************

←解決時は質問者本人がここをチェックしてください。

戻る