DELPHI操作EXCEL
2009-04-21 14:54
603 查看
uses Excel2000;
var
Temp_Worksheet: _WorkSheet;
Temp_WorkBook: _WorkBook;
i:integer;
strB,strL,FileName:String;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
LCID: Integer;
begin
ExcelApplication1 := TExcelApplication.Create(nil);
ExcelWorksheet1 := TExcelWorksheet.Create(nil);
ExcelWorkbook1 := TExcelWorkbook.Create(nil);
ExcelApplication1.Disconnect;
ExcelApplication1.Connect;
LCID := GetUserDefaultLCID;
FileName:='D://08.xls';
Temp_WorkBook := ExcelApplication1.Workbooks.Open(FileName,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,LCID) as _WorkBook;
ExcelWorkBook1.ConnectTo(Temp_WorkBook);
Temp_Worksheet := ExcelWorkbook1.Sheets.Item[1] as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
for i:=2 to ExcelWorkSheet1.Rows.Count do
begin
Application.ProcessMessages;
strL:= ExcelWorkSheet1.Cells.Item[i,4];
strB:= ExcelWorkSheet1.Cells.Item[i,5];
....
ExcelWorkSheet1.Cells.Item[i,6]:= '';
ExcelWorkSheet1.Cells.Item[i,7]:= '';
objPoint:=nil;
end
else
break;
end;
ExcelApplication1.Save;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
end;
var
Temp_Worksheet: _WorkSheet;
Temp_WorkBook: _WorkBook;
i:integer;
strB,strL,FileName:String;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
LCID: Integer;
begin
ExcelApplication1 := TExcelApplication.Create(nil);
ExcelWorksheet1 := TExcelWorksheet.Create(nil);
ExcelWorkbook1 := TExcelWorkbook.Create(nil);
ExcelApplication1.Disconnect;
ExcelApplication1.Connect;
LCID := GetUserDefaultLCID;
FileName:='D://08.xls';
Temp_WorkBook := ExcelApplication1.Workbooks.Open(FileName,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,LCID) as _WorkBook;
ExcelWorkBook1.ConnectTo(Temp_WorkBook);
Temp_Worksheet := ExcelWorkbook1.Sheets.Item[1] as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
for i:=2 to ExcelWorkSheet1.Rows.Count do
begin
Application.ProcessMessages;
strL:= ExcelWorkSheet1.Cells.Item[i,4];
strB:= ExcelWorkSheet1.Cells.Item[i,5];
....
ExcelWorkSheet1.Cells.Item[i,6]:= '';
ExcelWorkSheet1.Cells.Item[i,7]:= '';
objPoint:=nil;
end
else
break;
end;
ExcelApplication1.Save;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
end;
相关文章推荐
- Delphi Excel 操作大全
- delphi 操作Excel插入图片
- Delphi- 操作EXCEL
- 怎么在delphi中读取Excel数据(各种详细操作)
- Delphi中对Excel表格文件的导入和导出操作。
- delphi 操作excel复制sheet
- Delphi操作Excel
- Delphi 操作 Excel
- 引用Delphi操作EXCEL (详细)
- delphi 操作excel(全)
- Delphi操作Excel的方法详解
- Delphi 如何操作Excel
- delphi自带控件操作excel
- delphi操作excel
- Delphi 对 Excel 的操作
- Delphi和.NET下操作Excel的几点建议
- delphi 操作excel 复选框
- DELPHI操作excel
- delphi对于excel的一般操作
- Delphi中的EXCEL操作命令