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}。