用OleContainer装载一个excel文件后，用户就不能打开其它excel文件了

xiayudelantian 2010-04-23 10:44:46

用OleContainer装载一个excel文件后，用户就不能打开其它excel文件了。
如果用户已经打开一个excel文件，再用OleContainer装载一个excel文件，那原来打开的excel文件也没办法进行编辑。

如果是word文件，就都没这种问题，真受不了微软。。。

有谁知道解决办法？

...全文

103 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

welcome_kang 2012-10-06

打赏
举报

回复

我加载excel文档后菜单栏隐藏不了呀

浮生若梦_平淡为真 2010-04-23

打赏
举报

回复

没有试过,友情帮顶

工作要求，需要在程序中展示Excel文件的数据，但是不能显示出菜单栏、工具栏，只需要展示数据。看似简单的一个要求，却着实费了不少功夫，网上大多的资料都是office2003的版本适用，2007及以上的版本无法隐藏菜单栏和工具栏。经过笔者搜罗了多方资料，终于成功实现了功能，本着资源共享的精神，跟大家一起分享。 1.解决oleContainer，失去焦点后无法再编辑的问题 2.主要是解决office隐藏菜单栏和工具栏的问题，2003版本和2007及以上版本通用

摘要:Delphi源码,文件操作,OLE,Excel 　　一个基于Delphi语言编写的OLE自动化控件器，让Delphi支持打开.xls格式的Excel表格文件，简要概述一下实现步骤：建立OLE对象、使Excel可见，并将本程序最小化，以观察Excel的运行情况、使Excel窗口不可见、注意：Delphi中的数组的下标是从0开始的，而Excel的表格是从1开始编号，Excel的表格是从1开始编号，传送字段名，数据库到Excel的数据传输完毕，文件存盘，发生错误时给出提示，最后退出OLE对象

Delphi的Word处理，处理嵌入问题、Office2003版本使用Olecontainer出现不可编辑问题，用Setfocus方法就可以了。

Delphi中使用Olecontainer打开Word文档后，并实现打印功能

nit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function get_th(i:integer):string; var s:string; begin s:='一二三四五六七八九十十一十二十三'; s:=s+' 十四十五十六十七十八十九二十二十一二十二二十三二十四二十五二十六二十七二十八二十九三十 '; result:=(trim(copy(s,i*6+1,6))); end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章