代码之家 › 专栏 › 技术社区 › Robin Chander

Application.评估运行时错误类型不匹配

runtimeexception runtime-error type-conversion vba excel

Robin Chander · 技术社区 · 10 年前

我在VBA中的以下函数调用中遇到此运行时错误类型不匹配

Dim sTest As String
sTest = "=Search(" & Chr(34) & "MyString" & Chr(34) & Chr(44) & "A2" & ")>0"
''the above evaluates to =Search("MyString",A2)>0
Application.Evaluate(sTest)

因此求值函数抛出运行时错误类型不匹配

我试过了

sTest = "=Search(" & Chr(34) & "MyString" & Chr(34) & Chr(44) & Chr(34) "Test MyString" & Chr(34) ")>0"

还是一样的错误

当我在excel公式栏中使用上面的字符串时,它起作用了!!

我试过了

sTest = "=Search(""MyString"", ""Test MyString"")>0"

它在VBA中工作

令我惊讶的是

sTest = "=Search(" & Chr(34) & Chr(34) & "MyString" & Chr(34) & Chr(34) & Chr(44) & Chr(34) & Chr(34) & "Test MyString" & Chr(34) & Chr(34) & ")>0"

Din工作

有人能帮忙解释一下为什么第一个代码块不工作吗?

1 回复 | 直到 10 年前

Tim Williams 10 年前

如果要在字符串中包含引号,只需将其加倍即可:

sTest = "=Search(""MyString"",A2)>0"

对我来说,这比使用 Chr(34)

注意,如果未找到字符串,SEARCH()将返回错误,而不是0。

推荐文章

Tolga KaÄan · 我正在研究算法,它只在1种情况下给出一个错误(运行时错误)

2 年前

MsAgentM · 尝试编写saveas代码时出现运行时错误1004

6 年前

DenizG · 运行时错误:无法读取未定义(Ionic 3)的属性“title”

6 年前

Rick · MuleSoft/Java-错误:无法解析方法

6 年前

Pierrick Rambaud · 如何使用discord bot自动删除频道

6 年前

y.allam · KitKat上的StackOverflower错误,因为矢量可提取

6 年前

3-14159265358979323846264 · 编写脚本。字典在不使用字典的情况下添加项目。添加-BUG?

6 年前

Mee · opencv标准视差图不工作

6 年前

Vishal A · YaHP转换器抛出javax。xml。数据类型。DatatypeConfigurationException数据类型配置异常

6 年前

VBA.starter · VBA中的Access选择组合框列返回“未定义函数”-错误

6 年前