JoPaJopa_ 2022-06-16 06:18 采纳率: 50%
浏览 249
已结题

Excel VBA 正则表达式 运行时错误:‘5’ 无效的过程调用或参数

问题遇到的现象和发生背景

请教VBA正则表达式运行中的报错

问题:Excel VBA 运行时错误:‘5’ 无效的过程调用或参数。调试出错误出现在 (Range("AE" & i) = outv(0).SubMatches(0))这一行

发生背景:输入数据是类似于(V02)的文字类型,我想要通过正则表达式取V后面的两位数字,将取出的数字放在另外一列。

问题相关代码,请勿粘贴截图

Sub splitvolt()
Set reg2 = CreateObject("vbscript.regexp")
‘正则表达式,想要取V后面的两位数字
reg2.Pattern = "V[0-9]{2}"
reg2.Global = True
i = 2
Do While Range("A" & i) <> ""
‘数据存在AC列中
vnum = Range("AC" & i).Value
Set outv = reg2.Execute(vnum)
If outv.Count > 0 Then
‘下一行为调试时显示的出错位置
Range("AE" & i) = outv(0).SubMatches(0)
End If
i = i + 1
Loop
Set reg2 = Nothing
Set outv = Nothing
End Sub

运行结果及报错内容

无法产出运行结果
报错内容:运行时错误:‘5’ 无效的过程调用或参数

我想要达到的结果

将正则表达式挑出的两位数字放进AE列中

  • 写回答

1条回答 默认 最新

  • Hello World, 2022-06-16 08:53
    关注
    Sub splitvolt()
        Set reg2 = CreateObject("vbscript.regexp")
        '正则表达式,想要取V后面的两位数字
        reg2.Pattern = "V([0-9]{2})"
        reg2.Global = True
        i = 2
        Do While Range("A" & i) <> ""
            '数据存在AC列中
            vnum = Range("AC" & i).Value
            Set outv = reg2.Execute(vnum)
            For Each Item In outv
                Debug.Print Item.submatches(0)
                Range("AE" & i) = Item.submatches(0)
            Next
            i = i + 1
        Loop
        Set reg2 = Nothing
        Set outv = Nothing
    End Sub
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录

报告相同问题?

问题事件

  • 系统已结题 7月1日
  • 已采纳回答 6月23日
  • 赞助了问题酬金3元 6月16日
  • 创建了问题 6月16日

悬赏问题

  • ¥20 机器学习能否像多层线性模型一样处理嵌套数据
  • ¥20 西门子S7-Graph,S7-300,梯形图
  • ¥50 用易语言http 访问不了网页
  • ¥50 safari浏览器fetch提交数据后数据丢失问题
  • ¥15 matlab不知道怎么改,求解答!!
  • ¥15 永磁直线电机的电流环pi调不出来
  • ¥15 用stata实现聚类的代码
  • ¥15 请问paddlehub能支持移动端开发吗?在Android studio上该如何部署?
  • ¥20 docker里部署springboot项目,访问不到扬声器
  • ¥15 netty整合springboot之后自动重连失效