TXLSReadWriteII5 单元格读写

最新推荐文章于 2023-02-19 10:37:32 发布
最新推荐文章于 2023-02-19 10:37:32 发布
阅读量698 收藏
点赞数
原文链接：http://www.cnblogs.com/yzryc/p/7677537.html
版权
该博客介绍了如何使用Delphi中的TXLSReadWriteII5组件来读取和写入Excel文件的单元格。通过示例代码展示了读取不同类型的单元格数据（如空白、布尔值、错误、字符串、浮点数等）并将其显示在网格中，以及如何写入单元格数据，包括数值、字符串、公式和错误值。
摘要由CSDN通过智能技术生成

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XLSReadWriteII5, Grids, IniFiles, Xc12Utils5,
XLSSheetData5, XPMan;

type TDoubleArray = array of double;

type
TfrmMain = class(TForm)
Panel1: TPanel;
btnRead: TButton;
btnWrite: TButton;
edReadFilename: TEdit;
edWriteFilename: TEdit;
btnDlgOpen: TButton;
btnDlgSave: TButton;
dlgSave: TSaveDialog;
dlgOpen: TOpenDialog;
Button1: TButton;
Grid: TStringGrid;
btnAddCells: TButton;
XLS: TXLSReadWriteII5;
XPManifest1: TXPManifest;
procedure btnCloseClick(Sender: TObject);
procedure btnReadClick(Sender: TObject);
procedure btnWriteClick(Sender: TObject);
procedure btnDlgOpenClick(Sender: TObject);
procedure btnDlgSaveClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnAddCellsClick(Sender: TObject);
private
procedure AddCells;

procedure ReadCells;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
Close;
end;

procedure TfrmMain.btnReadClick(Sender: TObject);
begin
XLS.Filename := edReadFilename.Text;
XLS.Read;

ReadCells;
end;

procedure TfrmMain.btnWriteClick(Sender: TObject);
begin
XLS.Filename := edWriteFilename.Text;
XLS.Write;
end;

procedure TfrmMain.btnDlgOpenClick(Sender: TObject);
begin
dlgOpen.FileName := edReadFilename.Text;
if dlgOpen.Execute then
edReadFilename.Text := dlgOpen.FileName;
end;

procedure TfrmMain.btnDlgSaveClick(Sender: TObject);
begin
dlgSave.FileN

最低0.47元/天 解锁文章
weixin_30414245
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
delphi2010使用TXLSReadWritell 5读取excel
10-11
在win10系统中，使用delphi2010+TXLSReadWritell 5，读取excel（包括日期单元格）的读取，显示在TStringGrid中。如果读取的时候报Zlib decompress error错误，说明excel格式有问题。是在执行Read方法的时候，就已经...
XLSReadWriteII5 导入excel
10-16
XLSReadWriteII5 是一款 导入xls组件非常不错的组件。
XLSReadWriteII5 Cell Comments 单元注释
lyhoo163的专栏
10-12 2656
XLSReadWriteII5、6可以为Cell加入注释，通过TXLSComment读写Cell指定注释。
XLSReadWriteII5读写excel
龙七
04-25 4987
procedure excelImport; var Col, Row: integer; i, j: integer; begin try try // dlgOpen.Filter := 'excel(*.xlsx)|*.xlsx|全部文件(*.*)|*.*'; dlgOpen1.Filter := 'XLSX图标|*.xlsx|XLS图标|*.x...
delphi10.4.2 中用XLSReadWriteII5控件将数据库导入导出EXCEL
yhcad博客
04-27 2757
最近给单位开发一个小程序要用到Excel导入导出数据库功能。现用XLSReadWriteII5控件非常方便，代码如下所示： unit Umain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.E...
XLSReadWriteII5 网上收集更全面的导出EXCEL基本设置
08-19
XLSReadWriteII5 导出EXCEL，收集更加全面的基本设置，网上的资源太散了，希望对某些人有用
XLSReadWriteII5.20.47（支持XE11）
07-01
XLSReadWriteII5.20.47是一款强大的Excel文件处理组件，专为Delphi开发者设计，用于在应用程序中实现对Excel文件的读写功能。此组件在原有的基础上进行了更新和优化，确保在64位的Win64环境下，特别是在Delphi XE11...
delphi操作excel模块，图片，表格，读写删除
01-30
通过命名访问单元格，例如：XLS.NameAsFloat['MyCell'] := 202.5; 支持指定、内置的名称 支持所有超链接类型 网页和E-mail地址 本地文件 服务器文件 工作薄引用 加密文档 你可以读写加密文件。条件是你需要...
XLSReadWriteII_v5.20.25〖D7，XE-XE6〗
07-28
直接安装对应版本的.Bpl文件，然后加入library path即可，版本已XX请低调使用，仅供学习交流，商业用途请购买正版。 严重声明：不喜勿下，嫌东嫌西的请去购买正版或者去你喜欢的地方下载 在Delphi中读取Excel文件，使用CreateOleObject的方式挺讨厌的，一直搞不定，输出了文件之后，总会在系统中打开一个Excel，就算Quit也不行，一个程序中使用的多了，还不定搞出什么事情来。狠狠心找个其它的东西来代替，于是发现了XlsReadWriteII。 使用之后发现这个东西真不错，简单好用。不管是读还是写均轻松搞定。
XlsReadWriteII5.rar
07-18
无需安装Office就可操作Excel,支持xlsx格式，支持其图表，在Delphi2010中可使用，需要将dcu或pas文件添加到 Library Path中即可使用，无需安装bpl或dpk，亲测有效.
XLSReadWriteII.v.5.20.67.D7.D2010-XE10.rar
11-18
XLSReadWriteII.v.5.20.67.D7.D2010-XE10 How can XLSReadWriteII help you? Native access to Excel files. The user doesn't need to have Excel, or any other software installed. XLSReadWriteII works as an invisible Excel workbook. All cell values are always accessible. Stability. One of the major goals with XLSReadWriteII was to create a product that won't corrupt the Excel files and won't alter any data in the file. XLSReadWriteII is easy to use. With the formatting interface, you can format cells through a cell object. Fast and efficient support when you have any questi ons. No runtime fees for the component. Full source code included. We released the first version of XLSReadWrite in 1998. At that time it was the only component that could read and write Excel 97+ files. We are commited to have the leading Excel solution for Delphi in the future as well.
XLSReadWriteII 5.20.39 Full Source XE7 Win32-Win64
01-25
这次的版本的EXE安装版本，安装好就可以用了，连库路径也不用添加了。而且还有DEMO和源码（.pas文件）和帮助文档，XE7亲测有效。在关闭XE7的情况下，使用编写的程序读取EXCEL表不会弹出任何窗口，应该是完美破解了。（上一次的5.20.34就是要弹出窗口） 在Delphi中读取Excel文件，使用CreateOleObject的方式挺讨厌的，一直搞不定，输出了文件之后，总会在系统中打开一个Excel，就算Quit也不行，一个程序中使用的多了，还不定搞出什么事情来。狠狠心找个其它的东西来代替，于是发现了XlsReadWriteII。 使用之后发现这个东西真不错，简单好用。不管是读还是写均轻松搞定。 EXE程序安装完毕后，XLSRWII5_DXE7.bpl文件会生成到C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl路径下（不同版本的操作系统可能略有差异），请打开XE7-Component-Install packages-Add添加进来，否则，组件面板可能看不到XLS组件，如果有编译任何EXE程序出现XLSRWII5组件找不到的话请加上库路径library。
XLSReadWriteII_v5.20.25.rar
10-06
Embarcadero Delphi XE10的execl控件。是用于读取和写入Excel文件的Delphi组件。本地访问Excel文件。用户不需要安装Excel或任何其他软件。
XLSReadWriteII5 Color 颜色的调用和使用
lyhoo163的专栏
02-19 2235
/ 将字符串转换成TColor值，如将'clBtnFace'转换成 $02FF8800。TColor的RGB的色彩排列值是RGB(红绿蓝)，而Cardnal色彩的排列值是BGR(蓝绿红)。自然界，颜色是由红、绿、蓝三色组成，人眼的可见的颜色，可以通过红、绿、蓝三色按照不同的比例合成产生。RGB中建立三个原色的亮度值：0-255，通过三个原色的（0-255）建立该色彩。使用三组16进制的字符（对应0-255值），组建色彩。1、使用二进制字符串，显示TColor值。2、通过RGB值，显示TColor值。
XLSReadWriteII5读去Excel的例子
wqc159的专栏
08-22 616
uses XLSReadWriteII5, Xc12Utils5, XLSSheetData5; procedure TForm3.Button1Click(Sender: TObject); var XLS: TXLSReadWriteII5; C,R ,a ,I: integer; CellType: TXLSCellType; tick:LongWord; begin tick := GetTickCount; XLS := TXLSReadWriteII5.Create(.
XLSReadWriteII5使用参考
weixin_34010949的博客
11-24 1908
varxls: TXLSReadWriteII5 xls.Filename 文件名xls.Read 开始读取xls.Count sheet总数xls.Sheets[i].Name sheet名xls.Sheets[0].LastRow 最后一行xls.Sheets[0].LastCol 最后一列xls.Sheets[0].AsString[Col, Row] 取文本值 转载于:https://...
Linux qt excel单元格读写
最新发布
05-31
在Linux上，可以使用Qt提供的QAxObject类来操作Microsoft Excel文件。以下是一个示例代码，演示如何读写Excel单元格： ```cpp #include <QCoreApplication> #include <QAxObject> #include <QDebug> int main(int argc, char *argv[]) { QCoreApplication a(argc, argv); QAxObject excel("Excel.Application"); excel.setProperty("Visible", false); // 隐藏Excel窗口 QAxObject *workbooks = excel.querySubObject("Workbooks"); if (!workbooks) { qCritical() << "Failed to get Workbooks object."; return -1; } QAxObject *workbook = workbooks->querySubObject("Open(const QString&)", "path/to/your/excel/file.xlsx"); if (!workbook) { qCritical() << "Failed to open Excel file."; return -1; } QAxObject *worksheet = workbook->querySubObject("Worksheets(int)", 1); // 打开第一个工作表 if (!worksheet) { qCritical() << "Failed to get Worksheet object."; return -1; } // 读取单元格数据 QAxObject *cell = worksheet->querySubObject("Cells(int,int)", 1, 1); // 获取第1行第1列的单元格 if (cell) { QVariant cellValue = cell->property("Value"); qDebug() << "Cell value:" << cellValue.toString(); delete cell; } // 写入单元格数据 QAxObject *newCell = worksheet->querySubObject("Cells(int,int)", 1, 2); // 获取第1行第2列的单元格 if (newCell) { newCell->setProperty("Value", "Hello Excel!"); delete newCell; } workbook->dynamicCall("Save()"); workbook->dynamicCall("Close()"); excel.dynamicCall("Quit()"); return a.exec(); } ``` 这里使用了QAxObject类来打开Excel文件，获取工作表对象和单元格对象，并读取/写入单元格数据。请注意，您需要安装Microsoft Excel并确保其在系统路径中可用。 另外，如果您的Excel文件格式是XLSX，您还可以使用Qt提供的QXlsx库来读写Excel文件。QXlsx是一个基于Qt的开源库，支持XLSX文件的读写操作。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值