易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 控制Excel的问题

现在遇到一件烦琐的事.手头上有一Excel表,
现在想把表中第"R"列中的所有数据为"0"的那一行全都删掉,
怎样写呢?
我的想法是,用循环的方法,人第一行遍历到最后一行;
首先获取第一行的第"R"列,也就是第18列的数据,
判断是否为0,如果是0,则将整行删除,
直行最后一行,问题就是不懂这代码应该怎样写.
(如果在Excel中能做到,也可以,本人对Office是七窍通了六窍了)
请给出完整的代码,谢谢!
直接用筛选即可实现啊~~
把为0的筛选出来，然后选中删除~~
还有就是利用ado连接excel 表来做~~
引用
直接用筛选即可实现啊~~
把为0的筛选出来，然后选中删除~~


这样做的话,我的手和眼睛一起完了,这数量是很大的.
先给你一个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 := '第一行第四列';


相关问答：

delphi Ctrl+左键 无法查看 windows.pas 怎么办

我安装的是企业版。。。 
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。

当然可以,CTRL+左键点击Interface部分的Windows就可以了

啥啥企业版？去安装目录看看lib文件夹下有没� ......

delphi編寫自動更新程序

由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......

Delphi中数据库查询的疑惑

昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

Delphi 多线程，弹出框中断问题

如题：

我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号