Access 函數(shù)簡(jiǎn)化串接sql字符串，減少符號(hào)導(dǎo)致的書寫錯(cuò)誤

在編寫vba代碼時(shí)，經(jīng)常會(huì)因?yàn)檫B接字符串的符號(hào)太多，沒(méi)有組成一對(duì)導(dǎo)致錯(cuò)誤。

這里版主粉絲寫了一個(gè)函數(shù)方便串接SQL字符串，可以讓串接變得更直觀，特別是有單引號(hào)的情況下，類似C#中的String.Format方法

函數(shù)用途：可以方便串接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 = "他們分別來(lái)自：{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "廣州", "山東", "福建", "海南")
 End Sub


輸出：他們分別來(lái)自：北京、上海、廣州、山東、福建、海南


Demo2：

 Sub Demo2()
    Dim str As String
    str = "他們分別來(lái)自：{0}、{1}、{2}、{3}、{4}、{5}"
    Debug.Print ArrayFormat(str, "北京", "上海", "廣州")
 End Sub

輸出：他們分別來(lái)自：北京、上海、{2}、{3}、{4}、{5}。