有点深度的问题（高手进来留个脚印） ( 积分: 100 )

友

友友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #1

如何用delphi编程控制excel,向excel中指定的位置插入批注，请给个简单的例子

 

U

unjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #2

下面是我在excel03p3中录制的一段宏，插入批注很简单呀，搜一篇ole excel的文章，结合下面的代码，应该不难呀！
Sub Macro1()
Range("D3&quot.AddComment
Range("D3&quot.Comment.Visible = False
Range("D3&quot.Comment.Text Text:="csjiang:"
&
Chr(10) &
"saas"
End Sub

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #3

uses
ComObj;

procedure TForm25.Button1Click(Sender: TObject);
var
XLS : Variant;
begin

try
XLS := CreateOleObject('Excel.Application');
XLS.Visible := True;
XLS.WorkBooks.Open('book1.xls');
XLS.Range['F5'].AddComment('Hello, World!');
except

end;


XLS := UnAssigned;
end;

 

G

gongyuzhuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #4

顶一下：
www.chinadacs.cn

 

友

友友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #5

谢谢tseug ，谢谢unjiang,马上散分

 

W

wonhunter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #6

请lz下次别用“有点深度的问题（高手进来留个脚印）”这种标题成么？

 

友

友友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-24

• #7

多人接受答案了。