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

在编写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}。