Excel替换问题 ( 积分: 100 )

Z

zhl_yt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #1

请问大侠：
FindResult := ExlApp.Activesheet.cells.Replace('<#WYMC>','100');
如果文件中没有<#WYMC>，就弹出一个对话框，非常烦人。能不能有办法，不弹出提示对框？
程序上的逻辑是：找不到，就进入下一句。

 

Z

zhl_yt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #2

请问大侠：
FindResult := ExlApp.Activesheet.cells.Replace('<#WYMC>','100');
如果文件中没有<#WYMC>，就弹出一个对话框，非常烦人。能不能有办法，不弹出提示对框？
程序上的逻辑是：找不到，就进入下一句。

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #3

查office帮助，用vba（翻译成delphi）禁止对话框。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #4

ExlApp.DisplayAlerts := False;
或者
ExlApp.DisplayAlert := False;
记不太清楚了，你都试一下吧：)

 

Z

zhl_yt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #5

非常感谢两位大侠，对两位的敬仰如滔滔之江水。
最后使用：ExlApp.DisplayAlerts := False;