方法替换,当字符串很大时执行错误13

时间:2014-12-01 09:46:41

标签: vba access-vba

在旧脚本中,我使用Replace方法将excel表格翻译成另一种语言。 但现在,我会替换一些字符串但有时我得到一个执行错误13“类型不匹配”。

我注意到当String很大(长度> ~400个字符)时,方法replace会返回此错误。

例如,这里我没有问题:

Sheets(sheet).Cells.Replace "toto", "tata", xlWhole

但是在这里:

Sheets(sheet).Cells.Replace "WWWWWWWWWWWW", "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA", xlWhole

我收到错误“类型不匹配(错误13)” 我试图强制数据的类型

var temp as string
temp = "AAAAAAAA...."

但它不起作用...... 我可以修理吗?还有其他解决方案吗?

谢谢=)

1 个答案:

答案 0 :(得分:1)

看看this answer:将字符串分成250个字符的较小块然后将它们视为“正常”字符串似乎可以解决问题。