易截截图软件、单文件、免安装、纯绿色、仅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动态数组如何去掉一个元素

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

如何在delphi里用代码实现创建VPN连接?

我的代码如下,怎么总提示连不成功:
type
  GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......

VC Delphi 内存速度比较 - VC/MFC / 非技术类

VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......

delphi 本地装载驱动 - Delphi / Windows SDK/API

delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......

Delphi 与 ACCESS的诡异现象

delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand


//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
  tmpCmd := TADOCommand.Create(ni ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号