如何在DELPHI中用代码实现在EXCEL中插入一行？

Question

在EXCEL中插入一行如何用DELPHI实现？
知道了VBA代码，但不能直接用于DELPHI

Answer 1

可以参考　这个控制方法，要引用对象
Private Sub Form_Load()
    Dim xlsApp As New Excel.Application
    Dim wkBook As Workbook
    Dim wkSheet As Worksheet
    
    Set wkBook = xlsApp.Workbooks.Open(App.Path & "\book3.xls")
    xlsApp.Visible = True
    Set wkSheet = wkBook.Worksheets("sheet1")
    wkSheet.Rows("4:4").RowHeight = 27.75
    wkSheet.Columns("B:B").ColumnWidth = 11.25    
    xlsApp.Quit
    Set xlsApp = Nothing
End Sub

Answer 2

谢谢
不过我现在的问题是移植到DELPHI中似乎格式不对
只要想调用worksheets就提示“找不到成员”
试了
eclApp.Worksheets('Sheet1').Rows(2).Insert;
和
WorkBook.Worksheets('Sheet1').Rows(2).Insert;
等
换成ActiveSheet也一样

Answer 3

声明：
  eclApp,WorkBook :Variant;
创建
    eclApp:=CreateOleObject('Excel.Application');
    WorkBook:=CreateOleobject('Excel.Sheet');
编译时不能通过
请DX指点可行的办法，最好是编译通过的代码
分数不够可以再加