整理資料庫，剛好用到之前JSON製作程式。稍微改一點就能拿來用了，不用再重寫。

【大綱】

• 資料庫整理心得
• 程式碼
• 總結

【資料庫整理心得】

向右增加二欄，之後再整理到專案裡面。

變動的地方要從字裡行間去找，雖然有註解做輔助還是很慢。
給別人程式碼，要改的地方我會放在開頭，但是自己用的就沒有。
以後要注意這點，這樣擴充程式會比較方便。

【程式碼】

這裡只要改三個地方就能用，不過還可以更好。
比方說欄位名稱，可以抓第一列的值，就不用手打。

Sub all()
    '宣告
        Dim quetri As Variant
        Dim json As String
        'quetri是全部name值'這裡新增二欄名稱"link", "how"
        quetri = Array("name", "number", "ifsolve", "link", "how")
        
        'Chr(34) = ",因為"是保留字,所以要用Chr(34) 代替
        For Each ci In Range("B2", "F8")'範圍改成五欄
            
            If (ci.Column() = 2) Then
                json = json + "{"
            End If
            
            json = json & Chr(34) + quetri(ci.Column() - 2) & Chr(34) & ":"
            json = json & Chr(34) & ci.Value & Chr(34)
            
            If (ci.Column() = 6) Then'最後一欄改成表格第五欄
                json = json + "}"
            End If
            
            json = json + ","
        Next ci
        
        '除錯用
            Debug.Print (json)
    
End Sub

【總結】

有機會想研究，寫程式標準文件。
空格、括號位置等等，以後看自己程式碼才不會太吃力。
感謝撥冗閱讀。