Add-in按钮操作当前excel文档问题。(100分)

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #1

我现在已经做好了按钮，想在当前已经打开的excel文档里通过addin方式的按钮进行添加文字到excel里，步骤是：直接运行打开一个空的excel、或者直接打开d:/1.xls，注：
（不是 ExcelApp.WorkBooks.Open( 'd:/1.xls' )打开 ），点击按钮，添加文字到当前选中的单元格里。出现问题了，一般的资料都是 先：

1、ExcelApp := CreateOleObject( 'Excel.Application' );

2、ExcelApp.WorkBooks.Open( 'd:/1.xls' );

3、ExcelApp.Cells[1,1].Value := '111111';

我现在不是要重新打开一个硬盘里的excel文档，而是对已经打开的文档进行编辑，不知道如何open，是不是要写self。。。。 怎么写啊？

 

D

djrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #2

而是对已经打开的文档进行编辑
>>請問樓是怎麽打開的呢?
其實你可以把EXCEL當成一個數據庫,裏面的sheet1,sheet2..當成是表,這樣你可以操作自由.
我剛回答了一個類似問題,可以到這裏參考
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3467990

 

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #3

我是直接运行d:/1.xls,然后点击 我的按钮，希望能在1.xls里 添加文字
ExcelApp.WorkBooks.Open( 'd:/1.xls' ); 这句话应该是理解为重新打开另一个文档吧？ 我需要的是 就当前已经打开的1.xls 进行编辑，

 

W

wp231957

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #4

我是直接运行d:/1.xls,然后点击 我的按钮

为什么不让你的按扭去运行１．ＸＬＳ　晕

 

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #5

我已经运行了1.xls ,在1.xls里 的按钮再执行运行１．ＸＬＳ　,那不就是打开了2个1.xls 了? 我现在是想在已经手动打开的1.xls文件里通过我的按钮编辑1.xls.明白?

 

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #6

我使用按钮 对当前已经打开的excel文档进行编辑,目的就是要做 类似电子签章 的效果,比如可以 对当前已经打开的文档添加文字 或者锁定文档,或者添加图片 等等

 

W

wp231957

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #7

来自：kaiery, 时间：2006-6-14 23:29:22, ID：3471381
我已经运行了1.xls ,在1.xls里 的按钮再执行运行１．ＸＬＳ　,那不就是打开了2个1.xls 了? 我现在是想在已经手动打开的1.xls文件里通过我的按钮编辑1.xls.明白?


你在1.XLS的按纽里执行1.XLS 你这个按纽到底是用EXCEL做的,还是用DELPHI做的啊
要是在EXCEL本身里做,那可容易多了,毕竟是VBA编程了

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #8

for i:=1 to ExcelApp.Workbooks.Count do
if uppercase(ExcelApp.Workbooks.item.path+'/'+ExcelApp.Workbooks.item.name) = uppercase('d:/1.xls') then
begin
Workbooks1:=ExcelApp.Workbooks.item;
......
end;

 

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #9

to:wp231957
我的按钮是delphi写的，

TO：yuzk2005
你给的代码好象不行啊，最好不要直接写1.xls文件名，我需要的是对当前已打开的excel文件进行编辑，手动随便打开什么xls,点击按钮 就对当前文档编辑。

 

K

kaiery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #10

问题解决了，实现了对当前xls编辑了，插图、写字等、、
关键代码： with Self.FHostApp as ExcelApplication do