我用delphi自带的excel组件操作xls文件,总提示ole错误。无法打开一个已经存在的文件,只好用创建ole的方法来操作。
定义:
ExcelApp,WorkBook:Variant;
pFile:String;
创建:
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
ExcelApp.WorkBooks.Open(pFile);
我想在pfile文件中追加一个工作表,然后往这个工作表添加数据。请问我该怎么做?
我用ExcelApp.Sheets.Add();的方式添加,添加的工作表总是在最后工作表的前面,就是在活动工作表的前面。
定义:
ExcelApp,WorkBook:Variant;
pFile:String;
创建:
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
ExcelApp.WorkBooks.Open(pFile);
我想在pfile文件中追加一个工作表,然后往这个工作表添加数据。请问我该怎么做?
我用ExcelApp.Sheets.Add();的方式添加,添加的工作表总是在最后工作表的前面,就是在活动工作表的前面。
解决方案 »
- 关于时间控件的时间转成字符串的问题
- 文件怎么打开?扩展名为.zli
- 哪位用纯C作过串口通讯的模块
- 摄像头问题,如何屏蔽掉 "视频源" 对话筐?
- 数据库安全的问题!(向老大们求助)
- 用什么方式实现局域网内的数据库实时数据传输比较方便,可靠
- 【求助】请问如何根据在一个文本框里输入的字符串动态建立一个同名的ADOQuery? 谢谢
- 平时本地连接的收到数据包都不超过100的,今天竟然超过3,500.000包,究竟是怎么回事
- 我在程序中使用的是ADO连接Access 2000数据库,如何将MS Jet 4打包发行?
- 报表生成
- 求助access数据库导出/导入(包含文本和图片(二进制)内容)(delphi)
- 请问可不可以把*.rvf文件放到ACCESS数据库中?
ExcelApp.Visible:=True;
WorkBook:=ExcelApp.WorkBooks.Open('E:\moban2.xls');
ExcelApp.worksheets.add;
ExcelApp.WorkSheets[1].Activate; //这时Worksheets[1]就是新添加的,这时处在sheet[1]的位置,选中
ExcelApp.Worksheets[1].Move(null,ExcelApp.Worksheets[4]);//把它放到第四个sheet后面 delphi 7 and Excel2003 下通过