從Delphi程序中刪除Excel中的行

Question

我想用Delphi7程序從Excel中刪除行。
這引發了一個異常：

Excel := CreateOleObject('Excel.Application');  
...  
Excel.ActiveWorkBook.Rows(row).Delete;  

我究竟做錯了什么？

Answer 1

以下適用於我：

var
  Excel: ExcelApplication;
  Workbook: ExcelWorkbook;
  Sheet: ExcelWorksheet;
begin
  Excel := CoExcelApplication.Create;
  Workbook := Excel.Workbooks.Add(EmptyParam, LOCALE_USER_DEFAULT);
  Sheet := Workbook.ActiveSheet as ExcelWorksheet;
  Sheet.Range['A1','A1'].EntireRow.Delete(EmptyParam);
end;

請注意，我正在使用早期綁定，這使生活更容易。 只需包含Excel2000單元，此代碼即可使用。

使用早期綁定將允許您在編譯時捕獲這樣的錯誤，而不是難以診斷運行時錯誤。

如果你想繼續進行后期綁定，那么，正如Sertac所述，這有效：

Excel.ActiveSheet.Rows[1].Delete;

不要忘記先創建一個工作簿！

Answer 2

Rows是工作表的屬性。 所以這應該工作：

Excel.ActiveWorkBook.ActiveSheet.Rows[row].Delete;

請參閱“Excel對象模型參考” 。