vba中利用正则表达式匹配数字，求和并将结果保存到txt文件中

操作步骤
（1）vba中新建一个模块

写入代码

Sub reg()
    Dim strTxt As String
    Dim strkey As String
    Dim resuNum As Integer
    Dim objRegEX As Object
    Dim objMatch As Object
    Dim objMH As Object
    '正则匹配开始
    Set objRegEX = CreateObject("VBScript.RegExp")
    objRegEX.Global = True
    objRegEX.Pattern = "[0-9]+"
    strTxt = Cells(1, 1)

    Set objMatch = objRegEX.Execute(strTxt)
    If objMatch.Count > 0 Then
        For Each objMH In objMatch
            strkey = objMH
            resuNum = resuNum + Val(strkey)
        Next
    End If
    '正则匹配结束
    '向文件中保存开始
    Dim fnsave
    fnsave = Application.GetSaveAsFilename("", "TXT(*.txt),*.txt")
    If fnsave = False Then Exit Sub
    With CreateObject("ADODB.Stream")
    .Type = 2
    .Charset = "UTF-8"
    .Open
    .WriteText resuNum, 0
    .Savetofile fnsave, 2
    .Close
    End With
    '向文件中保存结束
End Sub

（3）新建一个button

（4）指定宏


（5）测试结果