在 .......sheet.rows[i].delete;
解决方案 »
- sql 语句中between and 查询, 时间参数如何传递?
- 完成第一个大型WEB程序 高兴 散分!!!!!!!!!!
- 重金悬赏高精度计时器控件(VCL,RMB 500.00-1000.00)?
- 求助:如何检测文件夹下文件的变化??
- 谁有delphi4编程技术内幕这本书的源码?(100分)不够可加
- 如何关闭一个MDI子窗体
- 保存Icon的DLL,可以保存为1,4,8,16,24,32位
- 關於在Delphi中數據事務處理的問題。(急...在線等待)
- delphi客户端升级程序的源代码
- 各位近来看看这个ADODateSet的问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 如何向注册表中写入二进制文件?
- 是字符串惹的祸吗?
你可看vba的帮助。下面用于删除第一行.procedure TForm1.Button1Click(Sender: TObject);
var W:_WorkSheet;
begin
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
W:=ExcelWorkBook1.ActiveSheet As _WorkSheet;
ExcelWorkSheet1.ConnectTo(W);
ExcelWorkSheet1.Range['A1','D1'].Delete(xlShiftUp) //.Range(Cells(1, 1), Cells(5, 3)).
//ExcelWorkSheet1.ConnectTo(ExcelApplication1.);
//ExcelWorkSheet1.
//ExcelApplication1.Worksheets.
end;
ActiveSheet.
在 .......sheet.rows[i].delete;
改成
(.......sheet As _WorkSheet).rows[i].delete;
~~~~~~~~~~~~~~~
就可以了。