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

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日

悬赏问题

  • ¥15 三电平逆变器中点电位平衡问题
  • ¥20 这怎么写啊 java课设
  • ¥15 双向孟德尔随机化反向是为什么显示参数长度为零
  • ¥15 用C语言完成一个复杂的游戏
  • ¥15 如何批量更改很多个文件夹里的文件名中包含文件夹名?
  • ¥50 MTK手机模拟HID鼠标出现卡顿
  • ¥20 求下下面这个数据结构代码
  • ¥20 前端 二进制文件流图片转化异常
  • ¥15 github上的这个C语言项目如何跑起来
  • ¥15 java 判断某个数 区间是否存在