【结帖】docview导出有问题帮看下代码

newjack · 发表于 2008-8-19 09:38:20

fileName:='c:BDQX.xls';
sheetdoclib.TSheetDocLib.CopySheetToExcel(DocView2,fileName);
if OLEContainer =nil then
OLEContainer:=TOleContainer.Create(self);
OLEContainer.Width:=0;
OLEContainer.Height:=0;
OLEContainer.Parent := Panel2;
OLEContainer.CreateObjectFromFile(fileName,true);
OLEContainer.DoVerb (OleCtnrs.ovOpen);
Borland.Delphi.Windows.DeleteFile(fileName); //删除附件

这段代码的问题是：点击一次出一个excel，点击第二次出现2个excel，点击第三次出现3个excel,。如下图。事实只需要有一个excel就可以了，而且出现的这几个都是一样的内容。
这段代码有什么问题吗？？？？？

newjack · 发表于 2008-8-19 10:28:34

没人看吗？

newjack · 发表于 2008-8-19 10:39:36

这个问题不难吧~~。帮看看吧

jiahaiming · 发表于 2008-8-19 10:58:22

楼主，表格文档导出excel文件是通过TExcelExporter来实现的。
这个对象在导出时是直接创建的新文件。

newjack · 发表于 2008-8-19 11:02:10

你说的这些和我的代码有什么关联？请直接指出代码中的错误。

jiahaiming · 发表于 2008-8-19 11:05:08

哦，理解错误了。抱歉。

newjack · 发表于 2008-8-19 11:11:50

加点油哦~~在线等待中，急~

lixy · 发表于 2008-8-19 11:14:46

你这个代码打开excel了，过后关闭了吗？

newjack · 发表于 2008-8-19 11:23:20

已经是关闭了再打开的

jiahaiming · 发表于 2008-8-19 11:29:30

楼上没有看到关闭的代码

		自动登录	找回密码
密码			立即注册