Delphi 控制Excel的问题
现在遇到一件烦琐的事.手头上有一Excel表,
现在想把表中第"R"列中的所有数据为"0"的那一行全都删掉,
怎样写呢?
我的想法是,用循环的方法,人第一行遍历到最后一行;
首先获取第一行的第"R"列,也就是第18列的数据,
判断是否为0,如果是0,则将整行删除,
直行最后一行,问题就是不懂这代码应该怎样写.
(如果在Excel中能做到,也可以,本人对Office是七窍通了六窍了)
请给出完整的代码,谢谢!
直接用筛选即可实现啊~~
把为0的筛选出来，然后选中删除~~
还有就是利用ado连接excel 表来做~~
这样做的话,我的手和眼睛一起完了,这数量是很大的.
先给你一个DELPHI操作Excel的资料
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';
相关问答：
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
