office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access 函数简化串接sql字符串,减少符号导致的书写错误

2021-05-16 08:00:00
fans.net
原创
342

在编写vba代码时,经常会因为连接字符串的符号太多,没有组成一对导致错误。

这里版主粉丝写了一个函数方便串接SQL字符串,可以让串接变得更直观,特别是有单引号的情况下,类似C#中的String.Format方法


函数用途:可以方便串接SQL字符串

    Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
        Dim strFind As String, strReplace As String, strTemp As String
        Dim i As Integer
        strTemp = expression
        For i = 0 To UBound(formatException)
            strFind = "{" & i & "}" : strReplace = formatException(i)
            strTemp = Replace(strTemp, strFind, strReplace)
        Next
        ArrayFormat = strTemp
    End Function


Demo1:


 Sub Demo1()
    Dim str As String
    str = "他们分别来自:{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "广州", "山东", "福建", "海南")
 End Sub


输出:他们分别来自:北京、上海、广州、山东、福建、海南


Demo2:

 Sub Demo2()
    Dim str As String
    str = "他们分别来自:{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "广州")
 End Sub

输出:他们分别来自:北京、上海、{2}、{3}、{4}、{5}。


如下面的示例,其中占位符:{}  ,里面的数字为index


    分享