如何实现在excel中定位、查找某个字符串并替换之? (100分)

  • 主题发起人 主题发起人 PlayBoysjz
  • 开始时间 开始时间
P

PlayBoysjz

Unregistered / Unconfirmed
GUEST, unregistred user!
我是delphi新手,遇到难题求救。有关在excel中查找字符串并替换的程序代码,请高手们给予指示和帮助。

 
各位兄弟姐妹,请伸出您热情的双手帮帮我呀。
我试着用这样的代码:
if not excelID.activesheet.Cells.Find(What:='aaa', After:=excelID.cells[1,2]).Activate then
MessageBox(self.Handle,pchar('not find!'),pchar('prompt'),MB_OK +MB_ICONSTOP );
但是有个问题是:如果能找到匹配的字符串,没有问题,一旦找不到的话,报错:
“Access violation at address 0046934F in module”。
请高手指示一二;
 
请斑主百忙之中,提点宝贵建议,问题尚在解决中,急用!谢谢
 
能否用TRy ... except 捕捉错误呢?
 
还没有弄懂你的意思,你是要把excel文档读入然后在查找再替换再导出吗?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部