[求助]如何在没有装vb的机子上用字符串函数?

mars831221

如何在没有装vb的机子上用字符串函数?

发现在没装vb的机子上不能用chr     left       mid       right    等字符串函数,,

哪位高手来帮忙解决下,,,不胜感激啊.

下面程序中的红色函数都不能用,这些函数在哪个ddl中啊

如Function filterme(instring As String) As String
    Dim where As Long
    Dim outstring As String

    outstring = ""
    Do While True
        where = InStr(1, instring, vbCr)
        If where > 0 Then
            outstring = outstring & left$(instring, where - 1) & vbCrLf
            instring = Mid$(instring, where + 1)
        Else
            outstring = outstring & instring
            Exit Do
        End If
    Loop
    If Asc(Right$(outstring, 1)) <> 10 Then
        outstring = outstring & vbCrLf
    End If

    filterme = outstring
End Function

一点通

删除$符号试下

tmtony

你的电脑必须安装有vb 或 VBA(例如excel access 之类)
才可使用这些函数,它是属于 visual basic 或 visual basic for application

mars831221

感谢，已经找到解决方法，在函数前加前缀VBA.CHR就可以了