CorelDraw VBA 截取文件名里的金额

最新推荐文章于 2022-07-12 12:00:53 发布

weixin_42628147

最新推荐文章于 2022-07-12 12:00:53 发布

阅读量222

点赞数 1

CC 4.0 BY-SA版权

分类专栏： CorelDraw VBA转载

本文链接：https://blog.youkuaiyun.com/weixin_42628147/article/details/93371134

CorelDraw VBA转载专栏收录该内容

4 篇文章

订阅专栏

博客展示了一段VBA代码，定义了一个名为Push的公共函数，该函数接收一个文件名作为参数，在函数内部通过InStrRev函数查找文件名中“元”的位置，若未找到则返回“0”并退出函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function Push(filename As String)
Dim i As Integer, j As Integer
Dim strTemp As String, temp As String, te1 As String, te2 As String
i = InStrRev(filename, “元”, -1)
If i = 0 Then
Push = “0”
Exit Function
End If

te1 = Left(filename, i - 1)
If IsNumeric(VBA.Right(te1, 1)) = False Then
    i = InStrRev(te1, "元", -1)
    If i = 0 Then
        Push = "0"
        Exit Function
    End If
End If

te1 = Left(te1, i - 1)
For j = 1 To 10
    strTemp = VBA.Right(te1, j)
    If IsNumeric(strTemp) Then temp = VBA.Trim(strTemp)
Next
    
Push = temp

End Function