在只装有wps的情况下，delphi6.0怎么实现.xls文件的导入功能

2013-04-28 09:52:42 456 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

提高FastReport导出xlsx的图片清晰度导出的xlsx图片就清晰了，而且格式是PNG的，记录一下免得下次忘记，我的版本是6.9.14的，其他版本的你们可以自己研究研究。然后根据SaveGraphicAs找到frxImageConverter。阅读详情

各位大大求教，在只装有wps的情况下，delphi6.0怎么实现.xls文件的导入功能？谢谢了

...全文

可执行文件图标修改全攻略：从原理到Python、C#、Qt实战在软件开发与发布流程中，可执行文件的图标资源管理是构建专业软件形象的关键环节。其核心原理在于修改可执行文件内部的资源段（.rsrc），或在编译打包阶段嵌入指定的图标资源。这项技术的价值在于实现软件的品牌化标识、提升用户体验，并解决因配置错误导致的图标显示异常问题。它广泛应用于独立软件发布、Python脚本打包（如使用PyInstaller）、C# WinForm/WPF应用程序以及Qt跨平台项目等场景。本文聚焦于**图标修改**与**资源编辑器**的实践应用，详细解析了从图标设计、格式转换到最终嵌入的完整操阅读详情

jim80s

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lyhoo163 2013-06-30

打赏
举报

建议使用XLSReadWriteII4。

ming626 2013-06-27

打赏
举报

我也遇到这个问题了，请大家(xsl510079027,jim80s)帮帮忙解决，万分感谢！87329767@QQ.com

随行的太阳 2013-05-07

打赏
举报

虎子8 2013-05-07

打赏
举报

引用 11 楼 jim80s 的回复:

xsl510079027，我可能积分不够下载您的资源，如果方便能帮忙发到qf388@163.com，万分感谢！！！

已发相关资料

jim80s 2013-05-07

打赏
举报

谢谢各位的帮忙，已解决！

OO_is_just_P 2013-05-06

打赏
举报

NativeExcel，完全是文件操作，和Office没关系。

jim80s 2013-05-06

打赏
举报

xsl510079027，我可能积分不够下载您的资源，如果方便能帮忙发到qf388@163.com，万分感谢！！！

虎子8 2013-05-02

打赏
举报

我的资源里面有delphi操作WPS，如果你是用ole对象操作的话，下载这个吧。至于引用单元你找找吧，office用Excel2000.pas，wps也是有对应的文件。但是没有也没有关系，Wpsxxx这种变量就是0,1,2,3...助记的

jim80s 2013-05-02

打赏
举报

但是WPS应该用哪个呢？一直找不到可以用的

jim80s 2013-05-02

打赏
举报

ExcelApp := TExcelApplication.Create(nil); ExcelWorkbook := TExcelWorkbook.Create(nil); ExcelWorksheet := TExcelWorksheet.Create(nil); ExcelApp.Connect; ExcelApp.Visible[0]:= False; ExcelWorkbook.ConnectTo(ExcelApp.Workbooks.Open(sFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,0)); ExcelWorksheet.ConnectTo((ExcelWorkbook.Worksheets.Item[1]) As _Worksheet);

jim80s 2013-05-02

打赏
举报

还是不太理解，求xsl510079027能否展示一下相关API的资料？十分感谢

parhelia512 2013-04-29

打赏
举报

NativeExcel3

easyboot 2013-04-29

打赏
举报

unit UExcelOperator; interface uses Windows, DB, Classes, SysUtils, Dialogs; type TExcelCls = class(TOBject) private { Private declarations } public { Public declarations } procedure SaveDataToExcel(aDataSet: TDataSet); end; var arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0); arXlsEnd: array[0..1] of Word = ($0A, 00); arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0); arXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0); arXlsInteger: array[0..4] of Word = ($27E, 10, 0, 0, 0); arXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17); implementation procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet); var i: integer; Col, row: word; ABookMark: TBookMark; aFileStream: TFileStream; procedure incColRow; //增加行列号 begin if Col = ADataSet.FieldCount - 1 then begin Inc(Row); Col := 0; end else Inc(Col); end; procedure WriteStringCell(AValue: string); //写字符串数据 var L: Word; begin L := Length(AValue); arXlsString[1] := 8 + L; arXlsString[2] := Row; arXlsString[3] := Col; arXlsString[5] := L; aFileStream.WriteBuffer(arXlsString, SizeOf(arXlsString)); aFileStream.WriteBuffer(Pointer(AValue)^, L); IncColRow; end; procedure WriteIntegerCell(AValue: integer); //写整数 var V: Integer; begin arXlsInteger[2] := Row; arXlsInteger[3] := Col; aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger)); V := (AValue shl 2) or 2; aFileStream.WriteBuffer(V, 4); IncColRow; end; procedure WriteFloatCell(AValue: double); //写浮点数 begin arXlsNumber[2] := Row; arXlsNumber[3] := Col; aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber)); aFileStream.WriteBuffer(AValue, 8); IncColRow; end; begin // i:=0; if FileExists(FileName) then DeleteFile(FileName); //文件存在，先删除 aFileStream := TFileStream.Create(FileName, fmCreate); try //写文件头　 aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin)); //写列头　 Col := 0; Row := 0; if bWriteTitle then begin for i := 0 to aDataSet.FieldCount - 1 do WriteStringCell(aDataSet.Fields[i].FieldName); end; //写数据集中的数据　　 aDataSet.DisableControls; ABookMark := aDataSet.GetBookmark; aDataSet.First; while not aDataSet.Eof do begin for i := 0 to aDataSet.FieldCount - 1 do case ADataSet.Fields[i].DataType of ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes: WriteIntegerCell(aDataSet.Fields[i].AsInteger); ftFloat, ftCurrency, ftBCD: WriteFloatCell(aDataSet.Fields[i].AsFloat) else WriteStringCell(aDataSet.Fields[i].AsString); end; aDataSet.Next; end; //写文件尾　 AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd)); if ADataSet.BookmarkValid(ABookMark) then aDataSet.GotoBookmark(ABookMark); finally AFileStream.Free; ADataSet.EnableControls; end; end; procedure TExcelCls.SaveDataToExcel(aDataSet: TDataSet); var StrSaveFile: string; SaveDialog: TSaveDialog; begin try SaveDialog := TSaveDialog.Create(nil); SaveDialog.Filter := 'Microsoft Excel 文件|*.xls'; SaveDialog.FileName := '查詢結果.xls'; SaveDialog.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]; if SaveDialog.Execute then begin StrSaveFile := SaveDialog.FileName; ExportExcelFile(StrSaveFile, true, aDataSet); end; SaveDialog.Free; finally end; end; end.

虎子8 2013-04-28

打赏
举报

其实WPS是能兼容word的，可以通过oleVariant操作.xsl 与word操作差不多，网上找找相关例子和api

Oraclers 2013-04-28

打赏
举报

可以用ADO连接打开。

虎子8 2013-04-28

打赏
举报

引用 3 楼 jim80s 的回复:

之前在装有office的机器上是可以引用Excel2000.pas的

安装WPS同样有对应的pas单元的，而且Excel2000.pas定义的只是一些变量的，对照word开发手册，那例子都是VBA代码 WPS其实与office的API是差不多，只是变量名不同。office中以wd开头，wps就以wps开头，但其指向的值，其实还是一样的

jim80s 2013-04-28

打赏
举报

之前在装有office的机器上是可以引用Excel2000.pas的

在只装有wps的情况下，delphi6.0怎么实现.xls文件的导入功能

相关推荐