Delphi Excel工作表中未命名的单元格，但仍需要获取单元格中的数据

我有一个客户正在使用的Excel 2003表格

我需要更新一个从这些单元格中提取数据的Delphi应用程序，但是这些单元格根本没有命名，它们只是

j3

和

j55

单元格中的数据仍然可以发送到其他应用程序吗

Delphi应用程序可以接受这些值吗？

当然可以，为什么不能

您可以使用Excel对象模型&使用一系列类来访问单元格的内容

VB（脚本）示例

了解Excel对象模型的最佳方法是
1.打开Excel
2.按ALT+F11（VBA编辑器）
3.按F2键（对象浏览器）
4.从显示的下拉列表中选择Excel

根类是Application&然后从那里开始工作。
e、 g.工作簿->工作表->工作表->单元格（范围）等

希望有帮助。

当然，为什么不呢

您可以使用Excel对象模型&使用一系列类来访问单元格的内容

VB（脚本）示例

了解Excel对象模型的最佳方法是
1.打开Excel
2.按ALT+F11（VBA编辑器）
3.按F2键（对象浏览器）
4.从显示的下拉列表中选择Excel

根类是Application&然后从那里开始工作。
e、 g.工作簿->工作表->工作表->单元格（范围）等

---

希望对您有所帮助。

您可以使用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;

---

再见。

您可以使用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;

再见。

一个好办法是“计算”需要在Excel中记录宏，然后将宏代码从VBA翻译到DelphiA一个好办法是“计算”需要在Excel中记录宏，然后将宏代码从VBA翻译到Delphi