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

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 Pygame坦克大战游戏开发实验报告
  • ¥15 用vmmare虚拟机用sentaurus仿真的时候,调用terminal程序,输入swb指令弹出这个,打不开workbench,桌面上面的sentaurus workbench也打不开
  • ¥15 simulink 硬件在环路仿真
  • ¥15 python动态规划:N根火柴摆出的最大数字
  • ¥20 (标签-excel)
  • ¥200 求idea10和MyEclipse7.1
  • ¥20 vb6.0截取当前窗体保存为jpg文件
  • ¥20 苹果手机不使用大疆sdk怎么获取遥控器控制信息或如何接入大疆sdk并且成功上架sdk
  • ¥20 woocommerce 注册按键重定向
  • ¥100 求书法图像文字切割代码