Access字符串數據拆分追加到錶

把一箇長的字符串按固定的規則截取齣多箇子字符串。

如下麵字符串"蘋果;西瓜;香蕉;哈密瓜;菠蘿;奇異果;櫻桃"，按“；”把逐箇水果截取齣來添加到錶中。

詳細函數：

Public Sub subStringInsert()
    Dim strf As String
    Dim arr() As String
    strf = "蘋果;西瓜;香蕉;哈密瓜;菠蘿;奇異果;櫻桃"
    arr() = Split(strf, ";") ' split函數以；分解字符串
    For i = 0 To UBound(arr())  '循環找齣數組
    CurrentDb.Execute "insert into tbl1(水果) values('" & arr(i) & "')" '追加到錶
    Next
    
End Sub

效果圖：