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

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 网络科学导论,网络控制
  • ¥15 metadata提取的PDF元数据,如何转换为一个Excel
  • ¥15 关于arduino编程toCharArray()函数的使用
  • ¥100 vc++混合CEF采用CLR方式编译报错
  • ¥15 coze 的插件输入飞书多维表格 app_token 后一直显示错误,如何解决?
  • ¥15 vite+vue3+plyr播放本地public文件夹下视频无法加载
  • ¥15 c#逐行读取txt文本,但是每一行里面数据之间空格数量不同
  • ¥50 如何openEuler 22.03上安装配置drbd
  • ¥20 ING91680C BLE5.3 芯片怎么实现串口收发数据
  • ¥15 无线连接树莓派,无法执行update,如何解决?(相关搜索:软件下载)