//读excel
function TForm1.readExcel(fileName :WideString):TStringList;
var
I, J ,len,ret: Integer;
MaxRow, MaxCol: Integer;
List, Strs: TStringList;
ExcelApp, Sheet: Variant;
OldTime: TDateTime;
strChar:WideChar;
str:WideString;
begin
ListINFO := TStringList.Create;
Strs := TStringList.Create;
// 创建一个excel的ole对象
ExcelApp := CreateOleObject('Excel.Application');
try
// 打开一个excel文件
ExcelApp.WorkBooks.Open(fileName);
ListINFO.BeginUpdate;
try
// 设置工作区
ExcelApp.WorkSheets[1].Activate;
Sheet := ExcelApp.WorkSheets[1];
// 有数据的区域的行数和列数
MaxRow := Sheet.UsedRange.Rows.count;
MaxCol := Sheet.UsedRange.Columns.count;
for I := 2 to MaxRow do
begin
Strs.Clear;
for J := 1 to MaxCol do
begin
// 获得excel的数据第i行,第j列单元格内的数据
Strs.Add(Sheet.Cells[i,j].Value);
end;
ListINFO.Add(Strs.CommaText);
end;
finally
// 关闭工作区
ExcelApp.WorkBooks.Close;
ListINFO.EndUpdate;
end;
finally
// 释放ole对象
ExcelApp.Quit;
//ListINFO :=List;
List.Free;
Strs.Free;
Result :=ListINFO;
end;
end;
//写excel
function TForm1.writeExcel(const T,Y,W:Integer):string;
var
I,J,len,ret: Integer;
MaxRow, MaxCol: Integer;
ExcelApp, Sheet,WorkBook: Variant;
strChar:WideChar;
str:WideString;
begin
ExcelApp := CreateOleObject('Excel.Application');
try
// 打开一个excel文件
ExcelApp.WorkBooks.Open('E:\tt.xls');
try
// 设置工作区
ExcelApp.WorkSheets[1].Activate;
Sheet := ExcelApp.WorkSheets[1];
ExcelApp.Cells(T,Y):=W.ToString();
finally
// 关闭工作区
ExcelApp.Save;
ExcelApp.WorkBooks.Close;
end;
finally
ExcelApp.Quit;
Result :='0';
end;
end;
分享到:
相关推荐
使用 Excel 组件可以极大地简化数据交换的过程,使得 Delphi 程序可以轻松地读取和写入 Excel 文件中的数据。 知识点二:Excel 对象模型 Excel 的对象模型是一个树状的层次结构,根是应用程序本身,工作簿 ...
在IT行业中,开发人员经常需要处理数据的读取和写入操作,特别是在Excel文件中进行交互。本示例聚焦于如何在Delphi 7环境中利用XLSReadWriteII库来实现Excel文件的写入,同时创建带有下拉列表框的单元格,以及在不...
在Delphi编程环境中操作Excel和WPS文档是一种常见的需求,尤其是在处理大量数据或自动化办公任务时。本文将详细介绍如何使用Delphi来操作这两种不同格式的电子表格,并指出它们之间的差异及共通之处。 #### 一、...
总之,Delphi7对Excel的遍历和数据导出TXT是一项常见的数据处理任务,通过熟练掌握Delphi组件库和编程技巧,开发者可以方便地实现这一功能,提升工作效率。在处理大量数据时,合理的代码设计和优化至关重要,以确保...
标题中的"DELPHI 从EXCEL导入到数据库"是一个关于使用Delphi...通过分析和理解这些文件,初学者可以学习如何在Delphi中实现从Excel到数据库的数据迁移,同时也涉及到了文件操作、数据库操作和UI设计等多个实践技能。
在Delphi编程环境中,使用ExcelApplication控件可以方便地与Microsoft Excel进行交互,实现对Excel电子表格的创建、读取和修改等操作。这个控件是通过自动化接口(Automation Interface)来实现的,允许Delphi程序...
在本文中,我们将深入探讨如何使用Delphi编程语言来读取Excel电子表格。Delphi是一个强大的Windows应用程序开发工具,它提供了丰富的组件库,使得与Microsoft Excel的交互变得相对简单。在本实例中,我们将主要利用...
本实例将探讨如何在Delphi中实现Excel文件的读取和写入操作,以便于数据交换和处理。 首先,我们需要了解Delphi中用于与Excel交互的组件或库。在Delphi中,最常用的是Jedi VCL库中的JExcelUnit或者通过COM组件接口...
此外,如果你的应用程序需要大量读取或写入Excel数据,可能需要考虑性能优化。例如,一次性读取整个工作表的数据到内存,而不是逐行处理,可以提高效率。同时,可以利用`TJvExcelApp.Suspend`和`Resume`方法暂停和...
这些库包含了对Excel对象模型的引用,使得我们能够创建、读取、修改和控制Excel工作簿和工作表。 1. **创建Excel对象**:在你的Delphi代码中,首先需要创建一个`Excel.Application`对象,这代表了一个运行的Excel...
本实例中,我们将探讨如何使用Delphi 7读取和写入Excel文件。首先,你需要在Delphi 7的工具栏中添加一个`TComObjectFactory`组件,这将使你能够创建和操纵COM对象。接着,你需要创建一个`Excel.Application`对象,...
1. **使用JEDI VCL组件库**:Jedi VCL提供了一系列的组件,其中JvDBExcel是用于处理Excel文件的组件,它可以读取、写入和修改Excel文件。结合使用JvDBComponents,我们可以直接将Excel数据导入到ADO(ActiveX Data ...
在win10系统中,使用delphi2010+TXLSReadWritell 5,读取excel(包括日期单元格)的读取,显示在TStringGrid中。如果读取的时候报Zlib decompress error错误,说明excel格式有问题。是在执行Read方法的时候,就已经...
- `TQuery`, `TDataSource`, `TDBGrid` 和 `TDBNavigator`: 这些组件用于从数据库读取数据并显示在表格中,通常用于将数据库中的数据填充到 Excel 表格。 3. **事件处理**: - `FormCreate`: 窗体创建时的事件,...
在 Delphi 中可以轻松地读取和写入 Excel 单元格中的数据。 1. **设置单元格值**: ```delphi ExcelApp.Cells[1, 4].Value := '第一条数据'; ``` 2. **设置列宽**: ```delphi ExcelApp.ActiveSheet.Columns[1]...
在IT行业中,Delphi是一种基于Object ...这个DEMO仅仅是个基础,但它是了解和掌握Delphi与Excel交互的一个良好起点。通过深入学习和实践,你可以利用Delphi实现自动化报告生成、数据导入导出等各种功能,提高工作效率。
接下来,"Delphi控制Excel.txt"可能涵盖了更广泛的Excel操作,例如写入数据、修改现有数据、格式化单元格、设置条件格式、插入或删除行和列,以及创建和编辑图表。控制Excel不仅限于读取,还包括对Excel对象模型的...
通过COM,Delphi可以调用Excel应用程序的接口,如打开工作簿、创建新工作表、读取和写入单元格等。 1. **创建Excel对象**: 在Delphi中,首先需要创建一个`Excel.Application`对象,这将启动Excel进程并允许我们...
通过上述步骤,我们已经了解了如何使用Delphi编程语言来控制Microsoft Excel,包括创建Excel对象、设置可见性、打开或新建工作簿、激活工作表、写入和读取单元格数据等基本操作。这些技术对于开发需要与Excel文件...
总的来说,通过 Delphi 和 Excel 的 COM 互操作,我们可以方便地将 Excel 文件作为数据库来使用,进行数据的读取、写入和查询。这种方式在处理小到中型的数据集时尤其有效,但要注意性能问题,对于大型数据,可能...