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

效果图：