delphi - Excel シートでセルに名前が付けられていないが、セルからのデータを取得する必要がある

Question

クライアントが Excel 2003 シートを使用しています。

j3これらのセルからデータを抽出する Delphi アプリケーションを更新する必要がありますが、セルにはまったく名前が付けられていませんj55。

セルからのデータを他のアプリケーションに送信できますか?

Delphi アプリケーションはこれらの値を取得できますか?

Answer 1

OLEを使用してDelphiでExcelファイルを処理できます。

uses
  ComObj;

procedure TForm3.btn1Click(Sender: TObject);
var
  ExcelApp: OleVariant;
begin    
  try    
      ExcelApp := CreateOleObject('Excel.Application');
      if not VarIsEmpty(ExcelApp) then
      Begin
       ExcelApp.Workbooks.Open('c:\yourfile.xls'); //Open File
       ShowMessage(ExcelApp.Range['J55', 'J55'].Value);   //Extract value from Cell J55
      End;    

  finally

    if not VarIsEmpty(ExcelApp) then
    begin
      ExcelApp.DisplayAlerts := False;
      ExcelApp.Quit;
    end;

  end;

end;

さよなら。

Answer 2

もちろん？

Excel オブジェクト モデルを使用し、一連のクラスを使用してセルの内容にアクセスできます。

VB(スクリプト)の例

dim xlApp
set xlApp = CreateObject("Excel.Application")

dim wkBook
set wkBook = xlApp.WorkBooks.Add

dim wkSheet
set wkSheet = wkBook.Sheets(1)

dim cell
set cell = wkSheet.Cells("A1")  'get the reference to cell A1

msgbox cell.Value

Excel オブジェクト モデルについて学習する最善の方法は、次の
とおりです。 1. Excelを開きます
。 2. ALT + F11 を押します (VBA エディター)
3. F2 を押します (オブジェクト ブラウザーの場合)
4. 表示されるドロップダウンから Excel を選択します。

ルート クラスは Application であり、そこから物事が流れます。
例: WorkBook -> WorkSheets -> Worksheet -> Cells (Range) など。

それが役立つことを願っています。